Сравнение 2-ух квадратных матриц размер 3*3

[Artem1987]

Вот код но процедура сравнения не работает, Почему???Зарание спасибо

program nom22;
type
mas=array[1..3,1..3] of integer;
var
a,b:mas;
procedure vvod(x:mas);
var
i,j:integer;
begin
for i:=1 to 3 do
for j:=1 to 3 do
begin
write(i,'.',j,'=');
readln(x[i,j]);
end;
end;

procedure sravnenie(q,y:mas);
var
i,j:integer;
bul:boolean;
begin
bul:=true;
for i:=1 to 3 do
for j:=1 to 3 do
begin
if q[i,j]<>y[i,j] then
bul:=False;
end;
if bul then
writeln(' Rowni')
else
writeln('ne row')
end;

begin
writeln('vvod A');
vvod(a);
writeln('vvod B');
vvod(b);
sravnenie(a,b);
readln;
end.

[andrey4623]

У меня так:

program Project1;
uses crt;
 
  var
    a,b:array[1..3,1..3] of integer;
    i,j:integer;
    bool:boolean;

begin
  for i := 1 to 3 do
    for j := 1 to 3 do
      begin
        Write('a['+inttostr(i)+','+inttostr(j)+']=');
        ReadLn(a[i,j]);
      end;
  for i := 1 to 3 do
    for j := 1 to 3 do
      begin
        Write('b['+inttostr(i)+','+inttostr(j)+']=');
        ReadLn(b[i,j]);
      end;
  {сравниваем}
  bool := True;
  for i := 1 to 3 do
    for j := 1 to 3 do
      if a[i,j] <> b[i,j] then
      begin
        bool := false;
        break;
      end;
  if bool then WriteLn('Equal') else WriteLn('no Equal');

  ReadLn;
end.

[Карась]

1. Перетащите все переменные наверх:

type  mas = array [1..3,1..3] of integer;
var a, b : mas;
     i, j : Integer;
     Bul : Boolean;

Так удобней.

2. В данном примере ненужно передавать процедурам параметры.
Процедура сравнения выглядит так(Я её "отремонтировал"):

Procedure sravnenie;
  Begin
    bul := False;
      For i:=1 To 3 Do
         For j:=1 To 3 Do
             if a[i,j] <> b[i,j] Then bul := True;
    if bul = False Then writeln(' Rowni')
    Else writeln('ne row')
End;

3. Ваша процедура заполнения массива не работает.
Переделайте её. Для проверки я тупо написал:

procedure vvod;
begin
for i:=1 to 3 do
for j:=1 to 3 do
begin
write(i,'.',j,'=');
readln(a[i,j]);
end;
for i:=1 to 3 do
for j:=1 to 3 do
begin
write(i,'.',j,'=');
readln(b[i,j]);
end;
end;

4. Вызов делаем вот так:

begin
vvod;
sravnenie;
readln;
end.