Задача с массивами

[grooveone]

В произвольном массиве A,состоящем из 60 целых чисел,принадлежащих промежутку [-50;50],найти в первой половине массива наибольший,а во второй половине-наименьший элемент и поменять их местами.
Прошу помощи добрые люди)

[009]

var
  a: array [1..60]  of integer;
  i,i_min,i_max,t:integer;
begin
writeln('Исходный массив');
for i:=1 to 60 do begin
    a[i]:=random(101)-50;// 
    write(a[i],' ');
  end;
writeln;
i_max:=1;
for i:=2 to 30 do
  if a[i_max]<a[i] then
    i_max:=i;
i_min:=31;
for i:=32 to 60 do
  if a[i_min]>a[i] then
    i_min:=i;
t:=a[i_min]; a[i_min]:=a[i_max]; a[i_max]:=t;
writeln('Полученный массив');
for i:=1 to 60 do
    write(a[i],' ');  
writeln;
end.

[BDA]

Алгоритм:
будем считать, что индекс наибольшего элемента - 1
цикл от 2 до 30 - если рассматриваемый элемент больше лежащего по индексу наибольшего, то заменяем хранимый индекс на новый
индекс наименьшего - 31
в цикле от 32 до 60 делаем то же сравнение
осталось поменять элементы местами (индексы известны)

Что не получается?

UPD
Опоздал. Пора развивать навыки быстрого набора текста

[Stilet]

grooveone

Покажешь как массив вводишь?