Последовательно вводятся n целых чисел. Найдите максимальное из них
Помогите пожалуйста

большое Вам спасибо))

Рада помочь)

Var  N, X, Max, i: Integer;Begin  Max := 0;  WriteLn('Введите количество чисел N: ');  Read(n);  WriteLn('Введите N чисел: ');  For i := 1 To N Do  Begin    Read(X);    If X > Max then Max := x;  End;  WriteLn('Максимальное: ', Max);End.