Пусть дано 10 вещественных чисел, которые вводятся по одному. вычисли-те разность между максимальным и минимальным числами. паскаль abc

Var a,min,max:real;
i:integer;
begin
max:=-999999;
min:=999999;
for i:=1 to 10 do begin
read(a);
if a>max then max:=a;
if a<min then min:=a;
end;
writeln(max-min);
end.