Дана последовательность из n вещественных числе найти разность меж max и

program zz1;
const n = 4; //задаем количество элементов в последовательности
var max, min:real; // задаем переменные целого типа
i:integer;
m:array [1..n] of real;
begin
for i:=1 to n do // организуем цикл, в котором введем с клавиатуры n данных чисел в последовательность
read(m[i]);
min:=1000000; //задаем начальное значение для малого и наибольшего элемента последовательности
max:=0;
for i:=1 to n do
begin
if m[i] gt; max then max:=m[i];
if m[i] lt; min then min:=m[i];
end;
writeln( разница меж наибольшим и минимальным элементами = , max-min); // выводим ответ
end.