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

Program MAX;var    a:integer;{само проверяемое число}    m:integer;{максимально число}beginm:=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.