Задан массив чисел A (2n ) , n < = 20. Найти максимум значение минимумов пар элементов массива

[Саша27]

Программа не запускаэться что делать ???

[Саша27]

const n=20;
var a:array[1..2*n] of integer;
    i,min,max:integer;
begin
   Writeln('Vvedit massuv A(20)');
   For i:=1 to 2*n do
      Read(A(i));
   min:=a[1];
   If min>a[2*n] then
      min:=a[2*n];//находим минимальный элемент массива из 2-х крайних
   max:=min;//пусть будет максимальной
   For i:=2 to n do//то же самое, только движемся к центру массива
   begin
      min:=a[i];
      If min>a[2*n-i+1] then
         min:=a[2*n-i+1];
      If max<min then
         max:=min;//выбираем максимальный элемент
   end;
   Writeln('max=',max);
   Readln;
end.

Задано массив чисел A (2n ) , n < = 20 . Разработать программу , которая вычисляет значение : Max ( min (A (1 ) , A (2n )) , min ( A (2 ) , A (2n -1 )) , ... . , Min (A ( n ) , A ( n +1 )))

[min@y™]

ссылка раз.

[Stilet]

Разработать программу

Без процедур? Функции запрещены?