Написать программу, которая определяет максимальное число из введенной с клавиатуры последовательности чисел. Ниже представлен вид экрана во время работы программы:

Вводите последовательно числа.
Для завершения ввода введите ноль.
----------------------
1 число: 33
2 число: 45
3 число: -10
4 число: 0
----------------------
Максимальное число: 45

А ты можешь преобразовать данную программу?

Program nomer3;Var i,max,y:integer;BeginWriteln('Вводите последовательно числа.');Writeln('Для завершения ввода введите ноль.');Writeln('----------------------');max:=0;y:=0;Repeaty:=y+1;write(y,' число:');readln(i);If (i<>0) then Until i=0;Writeln('----------------------');Writeln('Максимальное число: ',);Writeln();End.

после Then не знаю что делать дальше

По-русски пиши, и всё понятно будет.

всё