Пожалуйста помогите составить программу на Pascal

begin var x: real; var max := real.MinValue; repeat x := ReadlnReal(); if x > max then max := x; until x = 0; Print('Максимальное число:', max)end.

//PascalABC  (версия 3.4.2, сборка 1889 от 04.12.2018)

var

n, m : integer;

begin

writeln('Определение наибольшего числа последовательности');

writeln('положительных чисел');

writeln;

writeln('Вводите после стрелки числа. Для окончания ввода введите ноль.');

writeln;

m := 0;

repeat

 n := ReadlnInteger('-gt; ');

 if n gt; m then m := n;

until n = 0;

writeln;

writeln('Наибольшее число: ', m)

end.