Выберите наибольшее число из введенных - Pascal

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

Программа которая выберет наибольшее число из введенных через Repeat?

Решение задачи: «Выберите наибольшее число из введенных»

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

uses crt;
var a,mx:integer;
    n,i:integer;
begin
clrscr;
write('Сколько чисел ввести n=');
readln(n);
writeln('Введите ',n,' чисел');
readln(mx);
i:=1;
repeat
readln(a);
if a>mx then mx:=a;
i:=i+1;
until i=n;
write('max=',mx);
readln
end.

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

Программа на языке Pascal.
Код считывает с консоли количество чисел, которые нужно ввести (переменная n).
Затем программа считывает сами числа и сохраняет их в переменную mx.
Переменная i инициализируется единицей и используется как счётчик для цикла.
В цикле, пока i меньше n, считывается очередное число (переменная a) и если оно больше, чем mx, то обновляется значение mx.
После окончания цикла выводится максимальное число (mx).
Программа завершается.