Реализовать меню для работы с файлами

program go;
uses crt;
type reestr=record
name:string[15];
priz:string[15];
rik:integer;
stat:string[1];
oz1,oz2,oz3:integer;
end;
masiv=array[1..30]of reestr;
var
i,n,k:integer; a:masiv; c,z:char;
 f:file of masiv ;
 
procedure menu;
begin
clrscr;
writeln('******************************');
writeln('1.input data');
writeln('   2.write to file');
writeln('      3.read from file');
writeln('         4.exit');
writeln('******************************');
  write('Vuberit pynkt menu:  ');
read(k);
end;
 
 
procedure input;
begin
n:=0;
repeat
   clrscr;
write('prizvushe: ');
readln(a[n+1].priz);
write('mame: ');
readln(a[n+1].name);
write('rik narodzhennia: ');
readln(a[n+1].rik);
write('CTATb(m/w): ');
readln(a[n+1].stat);
write('ozika 1: ');
readln(a[n+1].oz1);
write('ozika 2: ');
readln(a[n+1].oz2);
write('ozika 2: ');
readln(a[n+1].oz3);
n:=n+1;
clrscr;
writeln('prodovzhutu vvodutu dani?(y/n)');
readln(c);
until c='n';
 menu;
end;
 
procedure vvod;
begin
assign (f,'reestr');
rewrite(f);
for i:=1 to n do
write (a[i].name,' ',a[i].priz,' ',a[i].rik,' ',a[i].stat,' ',a[i].oz1,' ',a[i].oz2,' ',a[i].oz3);
close(f);
end;
 
 
procedure vivod;
begin
assign  (f,'reestr');
reset(f);
while not eof(f) do
begin
read (f,a);
write(a[i].priz,'  ',a[i].name,'  ',a[i].rik,'  ',a[i].stat,'  ',a[i].oz1,'  ',a[i].oz2,'  ',a[i].oz3);
end;
close(f);
end;
 
 
BEGIN
clrscr;
menu;
case  k of
1:input;
2:vvod;
3:vivod;
4:exit;
end;
end.

program mmenu;
uses
   crt;
const
   k=4;
   m:array [1..k] of string [9] = (' year ',' mounth ',' day ','  Exit   ');
var
   i:byte;
   ch:char;
   n:byte;
procedure menu (v:byte);
begin
   for i:=1 to k do
   begin
      textcolor (white);
      Window ((i-1)*11+24,1,i*11+24,2);
      if i=v then
      TextBackground (red)
      else
      TextBackground (blue);
      write (m[i]);
   end;
   n:=v;
   TextBackground (blue);
   window (2,3,79,24);
   clrscr;
   textbackground (black);
   window (1,25,80,25);
   textcolor (white);
   gotoxy (65,1);
 
end;
procedure year;
begin
   TextBackground (blue);
   window (2,3,79,24);
   clrscr;
   textcolor (white);
   writeln(' . .2010');
   readkey;
end;
procedure mounth;
begin
   TextBackground (blue);
   window (2,3,79,24);
   clrscr;
   textcolor (white);
   writeln(' .12. ');
   readkey;
end;
procedure day;
begin
   TextBackground (blue);
   window (2,3,79,24);
   clrscr;
   textcolor (white);
   writeln('29. . ');
   readkey;
end;
begin
   n:=1;
   repeat
   window (1,1,80,25);
   TextBackground (black);
   clrscr;
   menu (n);
   ch:=readkey;
   if ch = #0 then
   ch:=readkey;
   case ch of
      #27:halt;
      #77:
      begin
         if n<4 then
         menu (n+1)
         else
         menu (1)
      end;
      #75:
      begin
         if n>1 then
         menu (n-1)
         else
         menu (4)
      end;
      #13:
      begin
         case n of
            1:year;
            2:mounth;
            3:day;
            4:halt
         end
      end
   end;
   until false;
end.

program abc;
uses crt;
const n=15;
type stroka=string[15];
masmenu=array[1..n]of stroka;
var i,k:integer; kod:char; menu:masmenu;
begin
clrscr;
k:=1;
menu[1]:='VUZ';
menu[2]:='Group';
menu[3]:='STUDENT';
menu[4]:='EXIT';
while true do
begin
textmode(3);
kod:=' ';
 while kod<>#13 do
  begin
  for i:=1 to n do
   begin
   if i=k then
    begin
    textbackground(3);
    textcolor(2);
    end
   else
   begin
   textbackground(12);
   textcolor(4);
   end;
  gotoxy(2,i+1);
  write(menu[i]);
  end;
 kod:=readkey;
 delay(5);
 if kod=#0 then
 begin
 kod:=readkey;
 if kod=#72 then
 begin
 if k>1 then k:=k-1
 else k:=n;
 end;
 if kod=#80 then
 begin
 if k<n then k:=k+1
 else k:=1
 end;
 end;
end;
if k=n then
begin
window(1,1,80,25);
clrscr;
halt;
end
else
if k=1 then
begin
textbackground(6);
textcolor(15);
window(7,k+1,12,k+1);
clrscr;
gotoxy(1,1);
write('vnn');
readln;
end
else
if k=2 then
begin
textbackground(6);
textcolor(15);
window(7,k+1,12,k+1); clrscr;
gotoxy(1,1);
write('ffgh');
readln;
end
else
if k=3 then
begin
textbackground(6);
textcolor(15);
window(7,k+2,12,k+1); clrscr;
gotoxy(1,1);
write('hgf');
readln;
end;
end;
end.

Program Lab_17_18;
  uses crt;
   Type ORDER = record
          rsplat, rspolyt, psumma:word;
                end;
        massiv = array[1..5] of Order;
    Var f:file of ORDER;
        A:massiv;
        p_m:char;
    Procedure Proc_A;
    Var i:byte;
      Begin
       rewrite(f);
       for i:=1 to 5 do
         Begin
           Writeln ('Vvedite info o ', i ,' platel: ');
           Write ('Vvedite r/s platelch  ');
           Readln (A[i].rsplat);
           Write ('Vvedite r/s polych:    ');
           Readln (A[i].rspolyt);
           Write ('Vvedite perechisl summu:   ');
           Readln (A[i].psumma);
 
           Write(f,A[i]);
       end;
            close(f);
            Reset(f);
            Writeln ('R/S PLAT',' ':10,'R/S POLYT',' ':10,'SUMMA',' ':5 );
            Writeln('___________________________________________________');
            for i:=1 to 5 do
              Begin
                read(f,A[i]);
                Writeln(A[i].rsplat:11,A[i].rspolyt:12,A[i].psumma:18);
                Writeln ('___________________________________________________');
                end;
                close(f);
                readln;
                end;
                
          Procedure Proc_B;
             Var i1:byte;
          Begin
              Reset(f);
             Writeln ('r/s plat':20,'     summa':8);
             Writeln (' ':10,'______________________________':14);
              While not(eof(f)) do
                Begin
                  Read(f, A[1]);
                  Writeln (A[1].rsplat:20,A[1].psumma:12);
                   end;
                   Writeln (' ':10,'______________________________':14);
                    close(f);
                    readln;
                    end;
       Begin
        assign(f,'J:\2\file');
        repeat
          clrscr;
           Writeln ('1 - sozdat new file');
           Writeln ('2 - nuzhniy nam spisok');
           Writeln ('3 - exit ');
           Write(' Viberite punct menu ');
           Readln (p_m);
           case p_m of
           '1':  Proc_A;
           '2': Proc_B;
           '3': Writeln ('End of work');
           end;
           until (p_m = '3');
           readln;
           end.