Помогите сделать в паскале!! В заданном двумерном массиве поменять местами следующие два элемента:     Два последних отрицательных.

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.