kolejka

program kolejeczka;
uses crt;
const
  max=10;
type KolejkaPtr=^Kolejka;
     Kolejka=record
       next : KolejkaPtr;
       zadanie : string;
       duedate : string;
     end;
var
  head : KolejkaPtr;
  tail : KolejkaPtr;
  nowy : KolejkaPtr;
procedure Dodaj;
          begin
               clrscr;
               New(nowy);
               Writeln('Co musisz zrobic?: ');
               readln(nowy^.zadanie);
               Writeln('Do kiedy? : ');
               readln(nowy^.duedate);
               if(head=NIL) then begin
                               head:=nowy;
                               tail:=nowy;
                               end
               else begin
                    tail^.next:=nowy;
                    nowy^.next:=NIL;
                    tail:=nowy;
                    end;
          end;
procedure Wyswietl;
          var
            tmp : KolejkaPtr;
            i : integer=1;
          begin
               clrscr;
               tmp:=head;
               writeln('Lista rzeczy do zrobienia');
               while tmp<>NIL do
                     begin
                          writeln(i,' ',tmp^.zadanie,' do ',tmp^.duedate);
                          tmp:=tmp^.next;
                          i+=1;
                     end;
          end;
procedure Usun;
          var
            tmp : KolejkaPtr;
          begin
               clrscr;
               tmp:=head;
               head:=tmp^.next;
               Dispose(tmp);
               writeln('Wierzch zdjęty!');
          end;
function menu:char;
         begin
              clrscr;
              writeln('[1] - Dodaj zadanie');
              writeln('[2] - Usun zadanie');
              writeln('[3] - Wyswietl liste zadan');
              writeln('[Esc] - Wyjscie z programu');
              menu := readkey;
         end;
begin
     head:=NIL;
     tail:=NIL;
     repeat
           begin
                clrscr;
                case menu of
                     '1':Dodaj;
                     '2':Usun;
                     '3':Wyswietl;
                     #27:halt;
                end;
                writeln;
                writeln('Aby wrocic do menu nacisnij [ENTER]');
                readln;
           end;
     until FALSE;
     end.