Осуществить ввод последовательности целых чисел и определить наибольшее введенное

var n, max: integer;
begin
  writeln('Введите последовательность целых чисел, окончание ввода - число 0');
  max := 0;
  repeat
    write('Введите очередное число: ');
    readln(n);
    if (max = 0) or ((n <> 0) and (n > max)) then max := n
  until n = 0;
  if max = 0
    then write('Последовательность не была введена')
    else write('Наибольшее введённое число: ', max);
  readln
end.

var
  n, k, max: Integer;
begin
  WriteLn('Введите последовательность, окончание 0:');
  max:=-MaxInt-1; k:=0;
  repeat
    Read(n); if n=0 then Break;
    Inc(k);
    if max<n then max:=n;
  until False;
  if k=0 then WriteLn('Последовательность пуста')
  else WriteLn('max = ',max);
end.

  Read(n); max:=n;
  while n<>0 do begin
    if n>max then max:=n;
    Read(n);
  end;
  if max=0 then WriteLn('Последовательность пуста')
  else WriteLn('max=',max);