Вводится последовательность чисел Конец последовательности - 0 найти максимальное число. Паскаль абс

Var a, max:integer;

begin

write ('a='); readln (a);

max:=a;

while a0 do begin

if a>max then max:=a;

write ('a='); readln (a);

end;

writeln ('max = ', max);

end.

Пример:

a=25

a=84

a=26

a=17

a=80

a=51

a=0

max = 84