Вот

procedure Input(var a, b: Matrix);
var
  i, j: integer;
begin
  randomize;
  for i := 1 to n do
    for j := 1 to n do
    begin
      a[i, j].re := random(5) + 1;
      a[i, j].im := random(5) + 1;
      gotoxy(6 * j, 2 * i);
      write(a[i, j].re, '.', a[i, j].im)
    end;

  for i := 1 to n do
    for j := 1 to n do
    begin
      b[i, j].re := random(4) + 1;
      b[i, j].im := random(4) + 1;
      gotoxy(6 * j, 5 + 2 * i);
      write(b[i, j].re, '.', b[i, j].im)
    end;
end;