Решение задач с использованием алгоритма поиска максимального (минимального) элементов:

var a: array [1..20] of integer;

 n, max: integer;

begin

 write ('Количество n =');

 readln (n);

 writeln ('Элементы массива');

 for var i :=1 to n do

  read(a[i]);

 max :=a[1];

 for var i := 2 to n do

  if a[1] > max then

   max :=a[1];

 writeln ('Максимум = ',max);

end.