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

var  i,j,ip,jp,ipp,jpp:integer;  a:array[1..5,1..6]of integer;beginwriteln('Исходный массив:');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.