Вводится последовательность ненулевых чисел, 0 – конец последовательности. определить наибольшее число в последовательности.

Var a,max:integer;
begin
  max:=0;
  repeat
     readln(a);
     if a>max then max:=a;
  until a=0;
  writeln('max: ',max);
end.

Вариант с циклом while

var a,max:integer;
begin
  writeln('Введите число: ');
  readln(a); max:=a;
  while a<>0 do begin
   writeln('Введите число: ');
   readln(a);
   if a>max then max:=a;
  end;
  writeln('max: ',max);
end.