работа с файлами

program lb14;
const n=3;
Label 1,2;
type
  pp=record
    name:string;
    gbith,gfin:integer;
    atest:record
     a,b,c,d:integer;
    end;
    obsh:boolean;
    vstup:record
 
 f,g,h,j:integer;
    end;
end;
Var
  ro:char;
  q:integer;
 
procedure create;
var
  p: pp;
  f:file of pp;
  i:integer;
  k:char;
BEGIN
  assign(f,'lr4.txt');
  rewrite(f);
  for i:=1 to n do begin
  writeln (i,'-i abiturient');
  writeln ('familiya imya otchestvo');
  readln(p.name);
  writeln ('god rogdeniya');
  readln(p.gbith);
  writeln ('god okanchaniya skoli');
  readln(p.gfin);
  writeln ('ocenki v atestate (4ocenki):');
     readln (p.atest.a);
     readln (p.atest.b);
     readln (p.atest.c);
     readln (p.atest.d);
     writeln ('nugdaetsya li v obshegitii: 1/0');
     readln (k);
  if k='1' then p.obsh:=true else p.obsh:=false;
  writeln ('ocenki vstupitelnih ekzamenov (4ocenki):');
      readln (p.vstup.f);
      readln (p.vstup.g);
      readln (p.vstup.h);
      readln (p.vstup.j);
      write(f,p);
  end;
    close (f);
END;
 
procedure print;
var
  p1:pp;
  f:file of pp;
  i:integer;
  k,z:char;
  qaz:string;
 
BEGIN
  i:=0;
  assign(f,'lr4.txt');
  reset(f);
  writeln ('N |  FIO     |god rogd|god okanch| atestat |obshegitie|ekzamen|');
  writeln;
  while not eof(f) do
  begin
   read(f,p1);
   inc(i);
  write (i);
  write (p1.name:10);
  write (p1.gbith:9);
  write (p1.gfin:8);
      write (p1.atest.a:7);
      write (' ',p1.atest.b);
      write (' ',p1.atest.c);
      write (' ',p1.atest.d);
    if p1.obsh=true then qaz:='da' else qaz:='net';
      write (qaz:10);
      write (' ',p1.vstup.f:4);
      write (' ',p1.vstup.g);
      write (' ',p1.vstup.h);
      write (' ',p1.vstup.j);
      writeln;
    end;
close(f);
END;
 
 
procedure newfile;
var
  p:pp;
  f,f1:file of pp;
  i:integer;
  k,z:char;
  sr,v:real;
  qaz:string;
 
 
BEGIN
  i:=1;
  assign(f,'lr4.txt');
  assign(f1,'lr4_2.txt');
  reset(f);
  rewrite(f1);
  while not eof(f) do
  begin
   read(f,p);
   if (p.vstup.f=5) or(p.vstup.h=5)or(p.vstup.g=5)or(p.vstup.j=5) and
(p.atest.a=4) or (p.atest.b=4) or (p.atest.c=4) or (p.atest.d=4) then
write(f1,p);
   end;
   close(f1);
close(f);
 reset(f1);
 rewrite (f);
 while not eof(f1) do begin
 read(f1,p); write(f,p);
 end;
close(f1);
close(f);
END;
 
 
BEGIN
2:
 
  Writeln ('  MENU  ');
  Writeln ('1-sozdanie faila');
  Writeln ('2-ishodnii fail');
  Writeln ('3-novii fail');
  Writeln ('4-vihod');
  readln(q);
 
Case q of
1: Begin
  create;
 Goto 2;
End;
 
2: Begin
   print;
   Goto 2;
End;
 
3: Begin
   newfile;
   print;
   Goto 2;
End;
 
4:
goto 1
else begin
       writeln('Oshibka vvoda !');
 
       end;
end;
1:
END.