Найти максимум в численном ряде - Pascal

Формулировка задачи:

задание: найти маскимум в численном (integer) ряде, который вводится с клавиатуры и заканчивается при введении числа 0. Если число не вводится, программа пишет"ряд пуст" написала код, но он 1. не пишет первому заданному значению, что оно максимально 2.не стирает ранее данные значения 3.всегда пишет что 0 максимум помогите пожалуйста исправить

 program Maximum(input,output);
uses crt;
var
i,j,max:integer;
s:string;
begin
writeln('введите число: ');
readln(i);
max:=i;
s:='';
writeln( 'ряд пуст!');
repeat
readln(i);
if i>max then max:=i;
writeln('максимальное число ',(i));
until i=0;
writeln('0 заканчивает ряд.');
end.

Решение задачи: «Найти максимум в численном ряде»

Листинг программы

program Maximum(input,output);
uses crt;
 
var
  i, j, max: integer;
  s: string;
 
begin
  writeln('введите число: ');
  writeln('0 заканчивает ряд.');
  max := 0;
  repeat
    readln(i);
    if i >= max then max := i;
  until i = 0;
  writeln('максимальное число ', max);
end.

Объяснение кода листинга программы

i, j, max - объявление целочисленных переменных i, j, max
s - объявление строковой переменной s
Вывод на экран текста введите число:
Вывод на экран текста 0 заканчивает ряд.
Присвоение переменной max значения 0
Начало цикла repeat-until
Ввод значения переменной i с клавиатуры
Если значение переменной i больше или равно значению переменной max, то присвоить переменной max значение переменной i
Повторять цикл, пока значение переменной i не будет равно 0
Вывод на экран текста максимальное число с последующим выведением значения переменной max