Вводится 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.