СРОЧНО!!! :(

Составьте программу, определяющую максимальное из всех вводимых вами чисел. Концом ввода чисел является введенное число 0.

Program Pr1;uses crt;var max,a:integer;Beginclrscr;max:=0;a:=1;while a<>0 do begin readln(a); if a>max then max:=a; end;writeln(max);end.