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

Program zadacha_4;
 var
 i:integer;
x, max,min:real;
 begin
 writeln('Введите число');
 readln(x);
 min:=x;
 max:=x;

 for i:=2 to 10 do begin
 read(x);
 if x>max then max:=x else
 if x< min then min:=x;
end;
readln;
 writeln(‘разность между максимальным и минимальным числами:’, max-min);
 readln;
 end.