В чём ошибка?(тип объект)

program tipob;
uses crt;
type AM=array[1..20,1..20] of integer;
     BM=array[1..20] of integer;
     UM=^AM;
matrix=object
 M,N:integer;
 A:UM;
 B:BM;
constructor init;
procedure maxim;
procedure vivod;
destructor done; virtual;
end;
matr=object(matrix)
constructor init1;
procedure fib;
procedure maxim; virtual;
destructor done; virtual;
end;
 
constructor matrix.init;
var i,j:integer;
begin
 readln(M,N);
getmem(A,2*M*N);
for i:=1 to M do
for j:=1 to N do
readln(A^[i,j]);
end;
 
procedure matrix.maxim;
var i,j,k,max:integer;
begin
for i:=1 to M do
begin
 max:=A^[i,j];
 for j:=1 to N do
  if max< A^[i,j] then
  max:=A^[i,j];
 k:=K+1;
 b[k]:=A^[i,j]
end;
for i:=1 to k do
writeln(B[k]);
end;
procedure matrix.vivod;
 var i,j:integer;
begin
for i:=1 to M do
begin
 for j:=1 to N do
 write(A^[i,j]);
 writeln;
end;
end;
 
destructor matrix.done;
begin
 freemem(A,2*M*N)
end;
 
constructor matr.init1;
var i,j:integer;
begin readln(M,N);
 getmem(A,2*M*N);
 for i:=1 to M do
 for j:=1 to N do
 readln(A^[i,j])
end;
 
procedure matr.fib;
var f0,f1,f2,k,i,j:integer;
    f:boolean;
begin k:=0;
 for j:=1 to N do
  begin f:=true;
   for i:=1 to M do
    begin
      f0:=1;
      f1:=1;
     while f1<A^[i,j] do
      begin f2:=f1+f0;
            f0:=f1;
            f1:=f2;
      end;
     if f1<>A^[i,j] then
      f:=false;
    end;
   if f then
    begin k:=k+1;
          B[k]:=j
    end;
  end;
 for i:=1 to k do
 write(B[i]:6)
end;
 
procedure matr.maxim;
var i,j,k:integer;
    f1,f2:boolean;
begin
 for i:=1 to M do
  begin f1:=true;f2:=true;
   for j:=1 to N-1 do
   begin
    if A^[i,j]>=A^[i,j+1] then
    f1:=false;
    if A^[i,j]<=A^[i,j+1] then
    f2:=false;
   end;
   if (f1)or (f2) then
   begin k:=k+1;
         B[k]:=i
   end;
  end;
 for i:=1 to k do
 write(B[i]:6)
end;
 
destructor matr.done;
begin
 freemem(A,2*M*N)
end;
var R1:matrix;
    R2:matr;
begin clrscr;
 R1.init;
 R1.maxim;
 R2.init1;
 R2.fib;
 R2.maxim;
 R2.done;
 R1.done;
readkey
end.