Ребят, помогите пожалуйста, очень надо))))
Напишите программу, в которой осуществляется ввод целых чисел ( ввод осуществляется до тех пор, пока не будет введен ноль) и определение максимального (наибольшего) из введенных чисел. Используйте оператор repeat. Программу нужно написать в паскале.

uses crt;var max:real;i,n:integer;beginn:=1;repeatwriteln('введите число ');readln(i);if n=1 then max:=i;if max<i then max:=i;n:=n+1;until i=0 ;writeln('максимум =',max);end.