Заменить последний рядок первой матрицы на второй столбец второй матрицы

uses crt;
const n=3;
var a,b:array[1..n,1..n] of integer;
    i,j,tmp:integer;
begin
 clrscr;
  writeln('Ïåðâàÿ ìàòðèöà :');
   for i:=1 to n do
    begin
     for j:=1 to n do
      begin
       a[i,j]:=-10+random(20);
       write(a[i,j]:4);
      end;
     writeln;
    end;
  writeln('Âòîðàÿ ìàòðèöà :');
   for i:=1 to n do
    begin
     for j:=1 to n do
      begin
       b[i,j]:=-12+random(30);
       write(b[i,j]:4);
      end;
     writeln;
    end;
  for i:=1 to n do
   for j:=1 to n do
    begin
     tmp:=a[n,j];
     a[n,j]:=b[i,n-1];
     b[i,n-1]:=tmp;
    end;
  writeln('Èçìåíåííàÿ ìàòðèöà ïåðâàÿ :');
   for i:=1 to n do
    begin
     for j:=1 to n do
      write(a[i,j]:4);
       writeln;
    end;
  writeln('Èçìåíåííàÿ ìàòðèöà âòîðàÿ :');
   for i:=1 to n do
    begin
     for j:=1 to n do
      write(b[i,j]:4);
       writeln;
    end;
 readkey;
end.