Нужно чтобы среди введенных чисел выбирал наибольшее и выводил его на экран. - Pascal

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

Нужно чтобы среди введенных чисел выбирал наибольшее и выводил его на экран. Помогите доделать.

Program naibolshee;
var
i,n:integer;
max,x:real;
begin
write('Введите число элементов: ');
readln(n);
write('Введите числа: ');
for i:=1 to n do
readln(x);
begin
if x > max then
max:=x;
writeln('Ваше наибольшее число: ',max);
end;
readln;
end.

Решение задачи: «Нужно чтобы среди введенных чисел выбирал наибольшее и выводил его на экран.»

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

Program naibolshee;
var
i,n:integer;
max,x:real;
begin
write('Введите число элементов: ');
readln(n);
write('Введите числа: ');
for i:=1 to n do
 begin
  readln(x);
  if i=1 then max:=x
  else if x>max then max:=x;
 end;
writeln('Ваше наибольшее число: ',max);
readln;
end.

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

naibolshee: программа нахождения наибольшего числа.
i, n: переменные целочисленного типа. i используется для индексации, n для сохранения количества элементов.
max, x: переменные вещественного типа. max используется для хранения наибольшего числа, x - для ввода чисел.
Запрашивается ввод количества элементов: Введите число элементов:.
Количество элементов сохраняется в переменной n.
Запрашивается ввод чисел: Введите числа:.
В цикле от 1 до n происходит следующее:
- Происходит ввод числа x.
- Если это первый элемент (i=1), то значение max присваивается значению x.
- В противном случае, если x больше, чем max, max обновляется значением x.
Выводится наибольшее число: Ваше наибольшее число:, за которым следует значение max.
Ожидается нажатие клавиши для завершения программы: readln.