Для каждой из двух целочисленных матриц вывести на печать элементы, кратные трем (Pascal)

[pitak]

Сообщение от Serge_Bliznykov

program Proced;
type
  vector = array[1..100, 1..100] of integer;

procedure Kratn(const P: vector; g, r: integer);
var
  l, k: integer;
begin
  for l := 1 to g do begin
    for k := 1 to r do
      if P[l, k] mod 3 = 0 then
        write(P[l, k]: 3, ' ');
    WriteLn;
  end;
end;

var
  A: vector;
  B: vector;
  i, j, nA, mA, nB, mB: integer;

begin
  Randomize;
  writeln('vvedite razmer matr A n-m');
  readln(nA, mA);

  writeln('vvedite razmer matr B n-m');
  readln(nB, mB);

  for i := 1 to nA do begin
    for j := 1 to mA do begin
      A[i, j] := Random(100); {случайное  число от нуля до 99}
      Write(A[i,j]:3,' '); {сразу и выведем значение на экран}
    end;
    WriteLn;
  end;

  for i := 1 to nB do begin
    for j := 1 to mB do begin
      B[i, j] := Random(100); {случайное  число от нуля до 99}
      Write(B[i,j]:3,' '); {сразу и выведем значение на экран}
    end;
    WriteLn;
  end;


  WriteLn('kratnye v Matrix A: ');
  Kratn(A, nA, mA);

  WriteLn('kratnye v Matrix B: ');
  Kratn(B, nB, mB);
  WriteLn;
  Readln;
end.

Большое спасибо