Найти ошибку в коде

procedure form_menu;
var
  i:byte;
  sizeof:integer;
begin
  ramka(x,y,Size Of menu([1]+2),(n+2),colt,colt);
  gotoxy(2,2);

procedure ramka;
var
  i:byte;
begin
  window(x,y,x+m,y+n);
  textcolor(colt);
  textbackground(colf);
  clrscr;
  write(#201);
  for i:=1 to m-1 do
    write(#205);
    write(187);
    for i:=2 to n-1 do
      begin
        gotoxy(1,i);
        write(#186);
        gotoxy(m,i);
        write(#186);
      end;
        gotoxy(1,n);
        write(#200);
        for i:=1 to m-2 do
          write(#205);
          write(#188);
end;
 
 
procedure form_menu;
var
  i:byte;
  sizeof:integer;
begin
  ramka(x,y,SizeOf(menu([1]+2),(n+2),colt,colt);
  gotoxy(2,2);
  highvideo;
  write(menu[i]);
  lowvideo;
  for i:=1 to n do
    begin
      gotoxy(2,i+1);
      write(menu[i]);
    end;
end;

unit modmenu;
interface
Uses crt;
type
  TM=array [1..5] of string [10];
  procedure ramka (x,y,m,n,colt,colf:byte);
  procedure form_menu (menu:TM; x,y,n,colt,colf:byte);
  function move_menu (menu:TM; x,y,n,colt,colf:byte):byte;
 
implementation

  (*Заменить:
  ramka(x,y,SizeOf(menu([1]+2),(n+2),colt,colt);
  *)
  (*На:*)
  ramka(x,y,SizeOf(menu([1]+2)),(n+2),colt,colt);