Дана последовательность целых чисел оканчивающихся нулём. написать программу находящее самое большое число из всех чисел в последовательности. программа для pascalabc

Var
A,M:integer;
Begin
WriteLn('Введите последовательность целых чисел');
M:=0;
Repeat
Read(A);
if A>M then M:=A;
Until A=0;
WriteLn(M)
End.