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

Спасибо большое))

Пожалуйста.

var a,max:integer;beginwrite('a='); readln(a);max:=a;while a<>0 do begin if a>max then max:=a; write('a='); readln(a);   end;writeln('max = ',max);end.Пример:a=25a=84a=26a=17a=80a=51a=0max = 84