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

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