Вводится произвольная последовательность целых чисел.найти наибольшее из всех чисел.

На паскале --- uses crt; var a,b,max: integer; begin      writeln('Вводите последовательность. Окончание последовательности - 0.');      readln(a);      max:=a;      while a<>0 do begin            if (a>max) then max:=a;            readln(a);      end;      writeln('Наибольшее число последовательности: ',max); end.