В массиве чисел поменять местами максимальный элемент с последним отрицательным элементом.

uses crt;
const n=25;
var c:array[1..n] of integer;
    i,imx,ip,x:integer;
begin
clrscr;
randomize;
{вводим элементы массива случайные числа от -10 до 19
одновременно ищем индекс последнего отрицательного}
writeln('Исходный массив:');
ip:=0;
for i:=1 to n do
 begin
  c[i]:=-10+random(30);
  write(c[i]:4);
  if c[i]<0 then ip:=i;
 end;
writeln;
writeln;
{ищем максимальный элемент и его индекс}
imx:=1;{пусть он пока первый}
for i:=2 to n do
if c[i]>c[imx] then imx:=i;{проверяем остальные, выбираем самый большой}
writeln('Максимальный элемент=',c[imx],' его индекс=',imx);
if ip=0 then write('Отрицательных элементов в массиве нет, обмен невозможен')
else
 begin
  writeln('Последний отрицательный=',c[ip],' его индекс=',ip);
  if ip=imx then write('Последний отрицательный одновременно максимальный, обмен невозможен')
  else{если есть отрицательный и он не масимальный}
   begin
    x:=c[imx];
    c[imx]:=c[ip];{обмениваем его с максимальным}
    c[ip]:=x;
    {выводим массив после обмена} 
    writeln;
    writeln('Обмен максимального и последнего отрицательного:');
    for i:=1 to n do
    write(c[i]:4);
   end;
 end;
readln
end.

6. clrscr;
42. readln