procedure zapis();      {procedura odpowiedzialna za zapis danych do bazy (pliku binarnego)}
var
  plik:file of szkielet;
  baza:szkielet;
begin
  assign(plik, 'baza.db');
  rewrite(plik);
  lista:=poczatek;
  while lista^.nast <> nil do begin
   baza.notatka := lista^.notatka;
   baza.data.dzien := lista^.data.dzien;
   baza.data.miesiac := lista^.data.miesiac;
   baza.data.rok := lista^.data.rok;
   baza.czas.godzina := lista^.czas.godzina;
   baza.czas.minuta := lista^.czas.minuta;
   write(plik, baza);

   lista := lista^.nast;
  end;
  close(plik);
end;

procedure odczyt();     {procedura odpowiedzialna z odczyt danych z bazy (pliku binarnego)}
var
  plik:file of szkielet;
  baza:szkielet;
begin
  lista:=poczatek;
  if(FileExists('baza.db'))then begin

    assign(plik, 'baza.db');
    reset(plik);
    while not EOF(plik) do begin
      read(plik, baza);
      lista^.notatka:=baza.notatka;
      lista^.data.dzien:=baza.data.dzien;
      lista^.data.miesiac:=baza.data.miesiac;
      lista^.data.rok:=baza.data.rok;
      lista^.czas.godzina:=baza.czas.godzina;
      lista^.czas.minuta:=baza.czas.minuta;
      new(lista^.nast);
      lista := lista^.nast;
    end;
    lista^.nast := nil;
    close(plik);
  end else zapis();
end;