Создание базы данных

Program PROGRAM1;
Uses Crt;
 
Type TEST=record
       NAME:String[15];   {PRODUKT}
       DATA:String[10];   {DATAPOST}
       SROK:Integer;   {GODNOST}
       :Integer;   {GODNOST}   {}
     End;
 
Var 
  zap: TEST;
  fname: file of TEST;
  rez: Integer;
 
{Otkrytie BD}
Procedure OpenBD;
Begin
  Assign (fname, 'c:\TEST.BD');
  {$I-}
  Reset(fname);
  {$I+}
  If IOResult<>0 Then Rewrite(fname);
End;
 
{Vivod Menu}
Procedure ShowMenu;
Begin
  ClrScr;
  TextColor (14);
  Writeln('MENU');
  TextColor (15);
  WriteLn('  1 - Dobavit zapis');
  WriteLn('  2 - Izmenit zapis');
  WriteLn('  3 - Prosmotr  BD (',FileSize(fname),')');
  WriteLn('  4 - Pechat  BD (',FileSize(fname),')');
  WriteLn('  5 - Sohranit BD');
  WriteLn('  0 - Vihod');
  WriteLn('------------------------');
  Write('Vash vibor? ');
End;
 
{Dobavit zapis}
Procedure AddZapis;
Begin
  ShowMenu;
  Reset (fname);
  Seek(fname, FileSize(fname));
  GotoXY(1,11);
  TextColor(14);
  WriteLn('Dobavit zapis');
  TextColor(15);
  Write('PRODUKT :');
  Readln (zap.NAME);
  Write('DATAPOST :');
  Readln (zap.DATA);
  Write('GODNOST :');
  Readln (zap.SROK);
  Write(' :');
  Readln (zap.);
  Write (fname, zap);
End;
 
{Izmenit zapis}
Procedure EditZap;
Var
  nz:Integer;
Begin
  ShowMenu;
  Reset (fname);
  GotoXY(1,11);
  TextColor(14);
  Write('Izmenit zapis N ');
  TextColor(15);
  ReadLn(nz);
  Seek(fname, nz-1);
  Read(fname, zap);
  Writeln;
  Write('PRODUKT :');
  WriteLn (zap.NAME);
  Write('DATAPOST :');
  WriteLn (zap.DATA);
  Write('GODNOST :');
  WriteLn (zap.SROK);
  Write(' :');
  WriteLn (zap.);
  Writeln;
  Seek(fname, nz-1);
  Write('PRODUKT :');
  Readln (zap.NAME);
  Write('DATAPOST :');
  Readln (zap.DATA);
  Write('GODNOST :');
  Readln (zap.SROK);
  Write(' :');
  Readln (zap.);
  Write (fname, zap);
End;
 
{Udalit zapis}
Procedure DelZap;
Var
  nz:Integer;
Begin
  ShowMenu;
  Reset (fname);
  GotoXY(1,11);
  TextColor(14);
  Write('Udalit zapis N ');
  TextColor(15);
  ReadLn(nz);
  Seek(fname, nz-1);
  Read(fname, zap);
  Writeln;
  Write('PRODUKT :');
  WriteLn (zap.NAME);
  Write('DATAPOST :');
  WriteLn (zap.DATA);
  Write('GODNOST :');
  WriteLn (zap.SROK);
  Write(' :');
  WriteLn (zap.);
  Writeln;
  Write(' :');
  Seek(fname, nz-1);
  Write (fname, zap);
End;
 
{Osnovnaya programma}
Begin
  ClrScr;
  OpenBD;  {Otkrytie BD}
  Repeat
    ShowMenu;  {Vivod Menu}
    ReadLN(rez);
    Case rez of
      1:AddZapis;  {Dobavit zapis}
      2:EditZap;  {Izmenit zapis}
      3:DelZap;  {Udalit zapis}
 
      0:exit;
    End;
  Until rez=0;
  Close(fname)
End.