помогите сделать в паскале! В заданном двумерном массиве поменять местами следующие два

элемента: Два последних отрицательных.

Var

i, j, ip, jp, ipp, jpp:integer;

a:array[1 ... 5,1 ... 6]of integer;

begin

writeln ('Исходный массив:') ;

for i:=1 to 5 do

begin

for j:=1 to 6 do

begin

a[i, j]:=random (-5,5) ;

write (a[i, j]:3) ;

if a[i, j]<0 then

begin

ipp:=ip;

jpp:=jp;

ip:=i;

jp:=j;

end;

end;

writeln;

end;

i:=a[ipp, jpp];

a[ipp, jpp]:=a[ip, jp];

a[ip, jp]:=i;

writeln ('Измененный массив:') ;

for i:=1 to 5 do

begin

for j:=1 to 6 do write (a[i, j]:3) ;

writeln

end;

end.