написать программу,которая определяет максимальное число из введенной последовательности положительных число завершения ввода 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.