Вариант 4 дан массив из n чисел (xi). найти максимальный элемент массива (max).

Const
  MAX_SIZE = 200;
var
  N, Max, i: integer;
  X: array [1..MAX_SIZE] of integer;
begin
randomize;
write('N = ');
readln(N);

writeln('Исходный массив: ');
for i := 1 to N do
begin
  X[i] := random(101)-50;
  write(X[i], ' ');
end;
writeln;

Max := X[1];
for i := 1 to N do
  if (X[i] > Max) then
    Max := X[i];
    
writeln('Максимальный элемент массива = ', Max);
end.