Вводится n чисел. Найти наибольшее. (Паскаль АВС)

Program MAX;

var

a:integer; {само проверяемое число}

m:integer; {максимально число}

begin

m:=0; {начальное значение максимального числа}

writeln ('Введите ваше число:', ' (Если захотите выйти, напишите ноль) ':3) ;

readln (a) ;

while (a 0) then begin

If (a > m) then begin

m: = a; end;

readln (a) ; end;

writeln ('Максимально число:', m:3) ;

End.