Вмассиве хранится информация о росте 25 человек.определить,насколько рост самого высокого человека превышает рост самого низкого.

Program z1;
var a:array [1..25] of integer;
i,max,min:integer;
begin
read(a[1]);
max:=a[1];
min:=a[1];
for i:=2 to 25 do
begin
read(a[i]);
if max<a[i] then max:=a[i];
if min>a[i] then min:=a[i];
end;
write(max-min);
end.