Проблема с процедурами

[problema]

в чем ошибка скажите пожалуйста...

код:

Program zzz;
Uses crt;
Const N=2;
Type

 mass = array [1..2] of boolean;
 mass2 = array [1..2] of integer;

 A = record
  a1 : mass;
  a2 : mass2;
 end;

 B = record
  b1 : char;
  b2 : array [1..2] of A;
 end;

 C = record
  c1 : real;
  c2 : B;
 end;

 Procedure Tablica;

begin
clrscr;
   writeln('ÚÄÄÄÄÄÄÂÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄ¿');
   writeln('³ real ³ char  ³ boolean ³ boolean ³ integer ³ integer ³');
   writeln('ÃÄÄÄÄÄÄÅÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄ´');
   writeln('³      ³       ³         ³         ³         ³         ³');
   writeln('ÀÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÙ');
end;     {    c1      b1       a1          a2       a1       a2         }

 Procedure BBOD(zap3 : C; zap2 : B; zap1 : A);
 var
 t,k,i,c : integer;
 begin
 t := 4;
 k := 12;
 Tablica;
 gotoxy(k-8,t);
 readln(zap3.c1);
 gotoxy(k,t);
 readln(zap2.b1);
 for i:=1 to 2 do
 begin;
 k:=k+9 ;
 gotoxy(k,t);
 readln(c);
  if c=0 then zap1.a1[i]:=false
       else
        zap1.a1[i]:=true;
 end;
 gotoxy(k+10,t);
 readln(zap1.a2[1]);
 gotoxy(k+20,t);
 readln(zap1.a2[2]);
 end;

  Procedure BUBOD(zap3 : C; zap2 : B; zap1 : A);
 var
 t,k,i,c : integer;
 begin
 t := 4;
 k := 12;
 Tablica;
 gotoxy(k-8,t);
 writeln(zap3.c1);
 gotoxy(k,t);
 writeln(zap2.b1);
 for i:=1 to 2 do
 begin;
 k:=k+9;
 gotoxy(k,t);
 writeln(zap1.a1[i]);

 end;
 gotoxy(k+10,t);
 writeln(zap1.a2[1]);
 gotoxy(k+20,t);
 writeln(zap1.a2[2]);
 readln;
 end;

 var
 zap1 : A;
 zap2 : B;
 zap3 : C;
 k,p : integer;

 begin
 repeat
clrscr;
 writeln('-=Œ¥*î=-');
 writeln;
 writeln('1: ‚¢®¤.');
 writeln;
 writeln('2: ‚뢮¤.');
 writeln;
 writeln('3: ‚ë室.');
 readln(k);
 clrscr;
 case k of
  1: BBOD(zap3, zap2, zap1);
  2: BUBOD(zap3, zap2, zap1);
  3: p:=3;
 end;
 until p = 3;
end.