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

Program N18 (Input, Output);
Var 
X : Array [1..50] Of Real; 
N : Integer;
Min: 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;
 
Min := X[1]; 
For i := 2 To N Do
If (Min > X [i] ) Then Min := X [i];
 
WriteLn ('Минимальный элемент массива - ', Min: 4: 2); 
ReadLn;
End.