program terminarz;
uses sysutils;
 type
 wskaznik=^element;
 element = record
            notatka:string[255];
            data:record
               dzien:1..31;
               miesiac:1..12;
               rok:2013..2050;
               end;
            czas:record
               godzina:1..24;
               minuta:0..59;
            end;
            nast:wskaznik;
           end;

 type szkielet=record
            notatka:string[255];
            data:record
            dzien:1..31;
               miesiac:1..12;
               rok:2013..2050;
               end;
            czas:record
               godzina:1..24;
               minuta:0..59;
            end;

           end;


var
   lista:wskaznik;
   poczatek:wskaznik;
   pom:integer;
   i:integer;
   wybor:integer;
   ilosc:integer;




procedure zapis();
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();
var
  plik:file of szkielet;
  baza:szkielet;
begin
  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;




procedure wypelnij();
begin
   lista:=poczatek;

      while lista^.nast <> nil do
      begin
         lista:=lista^.nast;
      end;

      write('Podaj notatke: ');
      readln(lista^.notatka);
      {$I-}
      repeat
      write('Podaj dzien: ');
      readln(pom);
      until ioresult=0;
      {$I+}

      while (pom<1) or (pom>31) do
      begin
         Writeln('Podaj dzien z zakresu 1-31');
         readln(pom);
      end;
      lista^.data.dzien:=pom;

      write('Podaj miesiac: ');
      readln(pom);
      while (pom<1) or (pom>12) do
      begin
         Writeln('Podaj miesiac z zakresu 1-12');
         readln(pom);
      end;
      lista^.data.miesiac:=pom;

      write('Podaj rok: ');
      readln(pom);
      while (pom<2013) or (pom>2050) do
      begin
         Writeln('Podaj rok z zakresu 2013-2050');
         readln(pom);
      end;
      lista^.data.rok:=pom;

      write('Podaj godzine: ');
      readln(pom);
      while (pom<1) or (pom>24) do
      begin
         Writeln('Podaj godzine z zakresu 1-24');
         readln(pom);
      end;
      lista^.czas.godzina:=pom;

      write('Podaj minuty: ');
      readln(pom);
      while (pom<0) or (pom>59) do
      begin
         Writeln('Podaj minute z zakresu 0-59');
         readln(pom);
      end;
      lista^.czas.minuta:=pom;
      new(lista^.nast);
      lista:= lista^.nast;
      writeln();

   lista^.nast:=nil;
end;


procedure wypisz();
begin
   lista:=poczatek;
   i:=1;
   while lista^.nast <> nil do
   begin

      writeln('Termin nr. ', i);
      writeln(#9'Notatka: ', lista^.notatka);
      writeln(#9'Data: ', lista^.data.dzien,'.', lista^.data.miesiac,'.', lista^.data.rok);
      writeln(#9'Godzina: ', lista^.czas.godzina,':',lista^.czas.minuta:2);
      writeln();

      lista:=lista^.nast;

      i:=i+1;
   end;
end;

procedure usun();
begin
   lista:=poczatek;
   ilosc:=0;
   while lista^.nast <> nil do
   begin
      ilosc:=ilosc+1;
      lista:=lista^.nast;
   end;

   wypisz();
   lista:=poczatek;
   writeln('Wybierz numer terminu do usuniecia: ');
   readln(pom);
   while (pom<1) or (pom>ilosc) do
   begin
      writeln('Podaj poprawny numer terminu: ');
      readln(pom);
   end;

   for i:=1 to pom-2 do
   begin
      lista:=lista^.nast;
   end;

   lista^.nast:=lista^.nast^.nast;

end;




begin
   new(poczatek);
   lista:=poczatek;

   odczyt();

   repeat
      writeln('Terminarz. Wybierz operacje: ');
      writeln('1-Dodaj termin.');
      writeln('2-Wyswietl terminarz.');
      writeln('3-Usun termin.');
      writeln('0-Koniec programu.');

      readln(wybor);
      case wybor of
      1: wypelnij();
      2: wypisz();
      3: usun();

      end;

      zapis();

   until wybor=0;
   readln;
end.