работа с матрицами и массивами

[Tw1X]

программа то работает то не работает. может вообще не правильно. я там что то намудрил сам запутался. проверьте пожалуйста

Найти все числа из массива B(n) , встречающиеся более чем в одной строке матрицы A(m,n) .


procedure Vvod(var Matr:TMatr; n,m:integer);
var j,k:integer;
begin
Randomize;
for j:=0 to n do
for k:=0 to m do
Matr[j,k]:=10-random(9);
end;

//вывод матрицы на экран
Procedure Vivod(var Matr:TMatr;n,m:integer;StringGrid1: TstringGrid);
var j,k:integer;
begin
for j:= 0 to n do
for k:=0 to m do
StringGrid1.Cells[j,k]:=intToStr(Matr[j,k]);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
StringGrid1.RowCount:= strtoint(edit2.text);
StringGrid1.ColCount:= strtoint(edit1.text);
n:= strtoint(edit1.text);
m:= strtoint(edit1.text);
Vvod(Matr,n,m);
Vivod(Matr,n,m,StringGrid1);
end;

procedure TForm1.Button2Click(Sender: TObject);
const r=9;
BEGIN
n:=strtoint(edit1.Text);
For i:=1 to n do begin
mas[i]:=10-random(r);
StringGrid2.Cells[i-1,0]:=Inttostr(mas[i]);
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
k,j,t,cnt:integer;
begin
i:=1; //берем очередное число из массмва В
n:=strtoint(edit1.Text);
m:=strtoint(edit2.Text);

for i:=1 to n do {проходим по всем элементам B}
begin
cnt := 0; {счётчик}
for j:=1 to m do {цикл по строкам матрицы A}
begin
for k:=1 to n do {цикл по элементам одной строки A }
if Matr[j,k] = mas[i] then begin Inc(cnt); break end;
end;
if cnt>2 then StringGrid3.cells[i-1,0]:=Inttostr(mas[i]);
end;
end;

procedure TForm1.Button4Click(Sender: TObject);
Begin
for I:=0 to stringgrid1.RowCount-1 do
for J:=0 to StringGrid1.ColCount-1 do
StringGrid1.Cells[J,I]:='';
for I:=0 to stringgrid2.RowCount-1 do
for J:=0 to StringGrid2.ColCount-1 do
StringGrid2.Cells[J,I]:='';
for I:=0 to stringgrid3.RowCount-1 do
for J:=0 to StringGrid3.ColCount-1 do
StringGrid3.Cells[J,I]:='';
end;
end.