паскаль, работа с двумерным массивом

[leraaa]

Помогите, пожалуйста, с задачей!

Описать тип-объект MATRIX (матрица произвольной размерности M*N) и его методы: ввод матрицы; вывод матрицы; определение минимального элемента среди отрицательных элементов матрицы. Описать тип и методы его потомка MATR (методы: определение наибольшего общего делителя элементов матрицы; определение максимального среди неповторяющихся элементов матрицы (замена метода)).

Вот код, что я написала, помогите с определением наибольшего общего делите (нод), пожалуйста, и с определением максимального среди неповторяющихся элементов матрицы (для этого код я написала, но он почему-то не работает)!

program main;
uses crt;
type tm=array[1..10,1..10] of integer;
um=^tm;
matrix=object
m,n:integer;
a:um;
constructor init;
procedure min; virtual;
destructor done; virtual;
end;
matr=object(matrix)
maxi:integer;        
constructor init1;
procedure nod;        
procedure max; virtual;
destructor done; virtual;
end;
constructor matrix.init;
var i,j:integer;
begin
 readln(m,n);
 getmem(a,2*m*n*2);
 for i:=1 to m do
 for j:=1 to n do
 read (a^[i,j]);
end;
procedure matrix.min;
    i,j,min:integer;
    f:boolean;
begin
readln(m);
readln(n);
for i:=1 to m do
for j:=1 to n do
read(a^[i,j]);
begin
min:=a^[1,1];
for j:=1 to n do
for i:=1 to m do
  begin

if (a^[i,j])<min then
 min:=a^[i,j];
end;
begin
f:=true;
for j:=1 to n do
for i:=1 to m do
if min>0 then f:=false;
if f then
writeln(min) else
writeln('net');
end;
end;
destructor matrix.done;
begin
 freemem (a,2*m*n*2)
end.
constructor matr.init1;
var i,j: integer;
begin
 readln (m,n);
 getmem (a,2*m*n*2);
 for i:=1 to m do
 for j:=1 to n do
 read (a^[i,j])
end;
procedure matr.nod;

///код для нахождения НОД///

end.
procedure matr.max;
var i,j,k,l:integer;
b:array[1..100] of integer;
    i,j,max,k,d,s,z:integer;
    f:boolean;
begin
readln(m);
readln(n);
for i:=1 to m do
for j:=1 to n do
read(a^[i,j]);
s:=0;
  for i:=1 to m do
  for j:=1 to n do
  begin
  f:=true;
  for i:=1 to m do
  for j:=1 to n do
   if  a^[i,j]=a^[k,z] and (i<>k) or ((i=k) and (j<>z)) then
f:=false;
  if not f then begin
s:=s+1;
(b[s]):=(a^[i,j]);
 end;
 max:=b[s];
 for s:=1 to d do begin
 f:=true;
  if max>b[s+1] then f:=false;
  if not f then writeln(max) else writeln('net');
end;
end;
readkey
end.
destructor matr.done;
begin
 freemem(a,2*m*n*2)
 end;
var r1:matrix; r2:matr;
begin
 clrscr;
 r1.init;
 r1.min;
 r2.init1;
 r2.nod;
 r2.max;
 r2.done;
 r1.done;
 readkey
end.