Написать программу, которая определяет максимальное число из введённой последовательности положительных чисел завершение вводом 0

Var
A,M:integer;

Begin
Read(A);
M:=A;
While A<>0 do
   Begin
   Read(A);
   if A>M then M:=A
   End;
Write('Max = ',M)
End.