Написать программу,которая определяет максимальное число из введенной последовательности положительных число завершения ввода 0

Var  a, max: integer;
begin
  read(a);
  max := -99999;
  while(a <> 0) do 
  begin
    if(a > max) then max := a;
    read(a);
  end;
  writeln(max);
end.