[Страдалецъ]

Тут и делать-то особо нечего:

Код:

{$APPTYPE CONSOLE}

uses
  SysUtils;

Const
  MatrixSize = 5;
Var
  MatrixA,MatrixB: Array[1..MatrixSize,1..MatrixSize] of Integer;
  R,C: Integer;
begin
for R := 1 to MatrixSize
do for C := 1 to MatrixSize
   do begin
      MatrixA[R,C] := Random(100);
      MatrixB[R,C] := Random(100);
      end;
WriteLn('Matrix A');
for R := 1 to MatrixSize
do begin
   for C := 1 to MatrixSize
   do Write(MatrixA[R,C]:3);
   WriteLn;
   end;
WriteLn('Matrix B');
for R := 1 to MatrixSize
do begin
   for C := 1 to MatrixSize
   do Write(MatrixB[R,C]:3);
   WriteLn;
   end;
for C := 1 to MatrixSize
do MatrixA[1,C] := MatrixB[C,MatrixSize];

WriteLn('Matrix C');
for R := 1 to MatrixSize
do begin
    for C := 1 to MatrixSize
    do Write(MatrixA[R,C]:3);
    WriteLn;
    end;
ReadLn;
end.