Дан массив,состоящий из 20-ти целых чисел.выяснить,на сколько максимальный элемент превосходит минимальный : 3 ,котаны: 3 нужна программа в паскале

Var a:array [1..20] of integer; i,max,min,r:integer;
begin
max:=0; min:=24000;
for i:=1 to 20 do
readln(a[i]);
for i:=1 to 20 do
if a[i]<min then min:=a[i];
for i:=1 to 20 doif a[i]>max then max:=a[i];
r:=max-min;
writeln;
writeln(r);
readln;
end.