Программа нахождения наибольшего  из  заданного ряда чисел — Pascal(Паскаль)

Program Maximum (Input, Output);
Var 
X : Array [1..50] Of Real; 
N : Integer;
Max : Real; 
i : Integer;
 
Begin
 
WriteLn ('PASCAL: Нахождение наибольшего из чисел: x[1],x[2],...,x[n].');
Write ('Введите число элементов массива (n<=50) N = '); 
ReadLn (N); 
WriteLn ('Введите элементы массива');
For i := 1 To N Do
Begin
Write ('X[', i, '] = '); 
ReadLn (X[i]); 
End;
 
Max := X [1]; 
For i := 2 To N Do
If Max < X [i] Then Max := X [i]; 
 
WriteLn ('Максимальный элемент массива - ', Max: 4: 2);
ReadLn;
End.