stos

program stos;
uses crt;
const
  max=10;
type StosPtr=^Stos;
     Stos=record
       dolny : StosPtr;
       zadanie : string;
       duedate : string;
     end;
var
  wierzch : StosPtr;
  nowy : StosPtr;
procedure Dodaj;
          begin
               clrscr;
               New(nowy);
               Writeln('Co musisz zrobic?: ');
               readln(nowy^.zadanie);
               Writeln('Do kiedy? : ');
               readln(nowy^.duedate);
               if(wierzch=NIL) then begin
                               wierzch:=nowy;
                               nowy^.dolny:=NIL;
                               end
               else begin
                    nowy^.dolny:=wierzch;
                    wierzch:=nowy;
                    end;
          end;
procedure Wyswietl;
          var
            tmp : StosPtr;
            i : integer=1;
          begin
               clrscr;
               tmp:=wierzch;
               writeln('Lista rzeczy do zrobienia');
               while tmp<>NIL do
                     begin
                          writeln(i,' ',tmp^.zadanie,' do ',tmp^.duedate);
                          tmp:=tmp^.dolny;
                          i+=1;
                     end;
          end;
procedure Usun;
          var
            tmp : StosPtr;
          begin
               clrscr;
               tmp:=wierzch;
               wierzch:=tmp^.dolny;
               Dispose(tmp);
               writeln('Wierzch zdjęty!');
          end;

function menu:char;
         begin
              clrscr;
              writeln('[1] - Dodaj zadanie');
              writeln('[2] - Usun zadanie');
              writeln('[3] - Wyswietl stos');
              writeln('[Esc] - Wyjscie z programu');
              menu := readkey;
         end;

begin
     wierzch:=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.