Заполнить матрицу размера MxN случайными числами. В каждой строке поменять первый элемент с диагональным (главной) — Pascal(Паскаль)

program pr;

uses crt;

type
  matr = array [1 .. 100, 1 .. 100] of integer;

var
  m, n, i, j, t: integer;
  a: matr;

begin
  clrscr;
  randomize;
  writeln('enter n');
  readln(n);
  writeln('enter m');
  readln(m);
  for i := 1 to n do
    for j := 1 to m do
      a[i, j] := random(100);
  for i := 1 to n do
    for j := 1 to m do
    begin
      write(a[i, j]:3);
      if (j mod m) = 0 then
        writeln;
    end;
  writeln;
  for i := 1 to n do
    for j := 1 to m do
      if i = j then
      begin
        t := a[i, 1];
        a[i, 1] := a[i, j];
        a[i, j] := t;
      end;
  for i := 1 to n do
    for j := 1 to m do
    begin
      write(a[i, j]:3);
      if (j mod m) = 0 then
        writeln;
    end;
  readln;

end.