Максимум последовательности

Последовательность состоит из натуральных чисел и завершается числом 0. Определите значение наибольшего элемента последовательности.

Числа, следующие за нулем, считывать не нужно.

Входные данные
Вводится последовательность целых чисел, оканчивающаяся числом 0 (само число 0 в последовательность не входит).

Выходные данные
Выведите ответ на задачу.

Исходный код на языке Pascal
var
  a, k: integer;

begin
  read(a);
  k := a;
  while a <> 0 do
  begin
    if (a > k) then 
      k := a;
    read(a);
  end;
  writeln(k);
end.