Вводи числа до тех пор пока не будет введён ноль , определить наибольшее число

P.S Программа написана для Pascal.

program chislo;

var  

a, max : integer;

begin

max:=0;

repeat  

writeln('Введите натуральное число');

read(a);

if a>max then

max:=a;

until a=0;

writeln('Наибольшее число: ',max);

end.