Файлы, меню, записи и так далее

type
sp=record
fs:string[20];
n:string[20];
dr:integer;
gp:integer;
g:string;
o:integer;
end;
myfile=file of sp;
Procedure show(var f:myfile);
 Var a:sp;
  Begin
   Reset(f);
   while not EOF (f) do
    Begin
     read(f,a);
     write(a.fs:20,a.n:20,a.dr:8,a.gp:5,a.g:5,a.o:5);
    End;
   Close(f);
  End;
Procedure Vvod(var f:myfile);
 Var b:sp;
  Begin
   Rewrite(f);
   write('Vvedite familiu: '); readln(b.fs); write(f,b.fs);
   write('Vvedite ima: '); readln(b.n); write(f,b.n);
   write('Vvedite datu rozdenia: '); readln(b.dr); write(f,b.dr);
   write('Vvedite god postuplenia: '); readln(b.gp); write(f,b.gp);
   write('Vvedite nazvanie gruppi: '); readln(b.g); write(f,b.g);
   write('Vvedite god postuplenia: '); readln(b.o); write(f,b.o);
   Close(f);
  End;
Procedure Delete(Var f:myfile);
Var n,i,c:integer;
    a:sp;
 Begin
  Reset(f);
  n:=filesize(f);
  If n=0 Then
   Begin
    writeln('Flile pist');
    Exit;
   End;
  writeln('Vvedite nomer zapisi');
  Readln(c);
  if (c<0) or (c>n-1) then
  Exit;
  n:=n-1;
  For i:=c to n-1 do
   Begin
    seek(f,i+1);
    read(f,a);
    seek(f,i);
    write(f,a);
   End;
  seek(f,n);
  truncate(f);
  close(f);
 End;
Var f:myfile;
    c:integer;
Begin
 Assign(F,'DZ1S2.bin');
 {$I-}
 Reset(f);
 {$I+}
If IoResult<>0 then
Rewrite(f);
Repeat
 writeln('1-Vivesti dannie');
 writeln('2-Vvesti dannie');
 writeln('3-Udalit dannie');
 writeln('0-Vihod');
  Repeat
   write('? ');
   readln(c);
  Until (c>=0) and (c<=3);
 case c of
  1: Show(f);
  2: Vvod(f);
  3: Delete(f);
 End;
Until c=0;
End.