проблема с записями. (Pascal)

[problema]

Очень нужна помощь Задача состоит в следующем: имеется запись в виде (http://www.programmersforum.ru/attac...1&d=1298731176) из меню "программы" выбираем заполнить, далее выводится таблица, заполняем,возврощаемся в меню, заново из меню выбираем печать, результыты выводятся в виде таблицы на экран...



код программы

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 ³ integer ³ boolean ³ integer ³');
   writeln('ÃÄÄÄÄÄÄÅÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄ´');

   writeln('ÃÄÄÄÄÄÄÅÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄÅÄÄÄÄÄÄÄÄÄ´');

   writeln('ÀÄÄÄÄÄÄÁÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÙ');
end;    

 Procedure BBOD(c1 : real; b1 : char; a1 : mass; a2 : mass2);
 var
 t,k,i,c : integer;
 begin
 t := 5;
 k := 8;
 Tablica;
 with C do
  begin
   gotoxy(k-4,t);
   readln(c1);
  end;
 with B do
  begin
   gotoxy(k,t);
   readln(b1);
  end;
 with A do
  begin
   for i:=1 to N do
    begin
     k:=k+4;
     gotoxy(k,t);
      readln(c);
       if c=0 then a1[i]:=false
       else
        a1[i]:=true;
     k:=k+4;
     gotoxy(k,t);
      readln(a2[i]);
    end;
  end;
 end;

 Procedure BUBOD(c1 : real; b1 : char; a1 : mass; a2 : mass2);
 var
 t,k,i,c : integer;
 begin
 t := 5;
 k := 8;
 Tablica;
 with C do
  begin
   gotoxy(k-4,t);
   writeln(c1);
  end;
 with B do
  begin
   gotoxy(k,t);
   writeln(b1);
  end;
 with A do
  begin
   for i:=1 to N do
    begin
     k:=k+4;
     gotoxy(k,t);
      writeln(a1[i]);
     k:=k+4;
     gotoxy(k,t);
      writeln(a2[i]);
    end;
  end;

 var
 
k,p : integer;

 begin
 repeat
clrscr;
 writeln('1: ввод');
 writeln;
 writeln('2: вывод');
 writeln;
 writeln('3: выход');
 writeln;
 readln(k);
 clrscr;
 case k of
  1: BBOD(c1,b1,a1,a2);
  2: BUBOD(c1,b1,a1,a2);
  3: p:=3;
 end;
 until p = 3;
end.

P.S. первый раз обратился на форум, за неправильное оформление и т.п. извиняюсь))) В программировании новичек. Знаю в коде есть ошибки, поэтому обращаюсь за помощью.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.