Транспонировать матрицу

const
  size = 20;
 
procedure swap(var a,b:Byte); var t : Byte; begin t := a; a := b; b := t; end;
 
var
  m : array [0..size-1, 0..size-1] of Byte;
  row, col : Byte;
begin
  Randomize;
  for row := 0 to size-1 do
    for col := 0 to size-1 do
      m[row,col] := Random(51);
  WriteLn('Создана матрица:');
  for row := 0 to size-1 do
    begin
      for col := 0 to size-1 do
        Write(m[row,col]:3);
      WriteLn;
    end;
  for row := 1 to size-1 do
    for col := 0 to row do
      swap(m[row,col], m[col,row]);
  Write('Нажмите Enter для продолжения'); ReadLn;
  WriteLn('Транспонированная матрица:');
  for row := 0 to size-1 do
    begin
      for col := 0 to size-1 do
        Write(m[row,col]:3);
      WriteLn;
    end;
end.