Модули: найти ошибки в коде

Unit Program1;
interface
type matr=array[1..100,1..100] of integer;
function check(stroka:integer):boolean;
implementation
function check(stroka:integer):boolean;
var i,m:integer;
A:matr;
yes:boolean;
begin
yes:=true;
for i:=1 to m do
if A[stroka,i] <> A[1,i] then
yes:=false; 
check:=yes;
end;
end.

Program gg;
uses Program1;
var
j,i,m,n:integer;
A:matr;
begin
writeln('Введите размер матрицы ');
READLN(n,m);
writeln('Введите элементы матрицы');
For i:=1 to m do
For j:=1 to n do
read(A[i,j]);
For i:=1 to m do 
begin
For j:=1 to n do 
Write(A[i,j]:2,' ');
writeln;
end;
check(i);
writeln('Результат: ');
for i:=2 to m do
if check(i) then writeln('С 1 строкой совпадает строка №',i);
end.

Unit modul;
interface
type matr=array[1..100,1..100] of integer;
function check(a:matr;stroka:integer):boolean;
implementation
function check(a:matr;stroka:integer):boolean;
var i,m:integer;
begin
result:=true;
for i:=1 to m do
if a[stroka,i]<>a[1,i] then
result:=false;
end;
end.

Program gg;
uses modul;
var j,i,m,n,k:integer;
    a:matr;
begin
writeln('Введите размер матрицы ');
readln(n,m);
writeln('Введите элементы матрицы');
For i:=1 to n do
For j:=1 to m do
readln(a[i,j]);
For i:=1 to m do
 begin
  For j:=1 to n do
  Write(a[i,j]:4);
  writeln;
 end;
writeln('С 1 строкой совпадает строки №');
k:=0;
for i:=2 to n do
if  check(a,i) then
 begin
  k:=1;
  write(i,' ');
 end;
if k=0 then write('.таких строк нет')
end.