Pascal i .dat baza podataka

Code:

type
ucenik=record
ime,prezime:string[30];
bodovi:integer;
...
var
student: ucenik
baza: file of ucenik

Code:

type
  TUcenik = record
    ime, prezime: string[30];
    bodovi: integer;
  end;

  TBaza = file of TUcenik;

procedure Upis;
var
  baza: TBaza;
  ucenik1, ucenik2: TUcenik;
begin
  ucenik1 := ...;
  ucenik2 := ...;

  AssignFile(baza, 'baza.dat');
  Rewrite(baza)
    Write(baza, ucenik1);
    Write(baza, ucenik2);
  CloseFile(baza);
end;

procedure Ispis;
var
  baza: TBaza;
  ucenik: TUcenik;
begin
  AssignFile(baza, 'baza.dat');
  Reset(baza)
    while not EOF(baza) do
    begin
      Read(baza, ucenik);
      WriteLn(ucenik.Ime);
    end;
  CloseFile(baza);
end;

begin
  Upis;
  Ispis;
end.

Code:

  AssignFile(logfile1,imedatoteke);

   if not(FileExists(imedatoteke)) then begin
    ReWrite(logfile1);
   end else begin
    Erase(logfile1) ;
    ReWrite(logfile1);
   end ;