{See programm paneb sappa sinu poolt antud arvu seisjat.
Vastavalt vajadusele laseb sinna lisada ja selle läpust kustutada.}
program sabake;
uses crt;
type seisjaviit=^seisjatyyp;
     seisjatyyp=record
                nimi: string;
                jargmine: seisjaViit;
                end;
var Algus, lopp, uus, kustuv: seisjaviit;
    i, inimesi, n, z: integer;
    x, y: string;

begin
     writeln('Mitu inimest sa tahad j„rjekorda panna?');
     readln(n);
     inimesi:=n;
     if n=0 then
     begin
          writeln('Kui sa kirjutad 0-i, siis ei saa sabas htegi inimest seista!!!');
     end
     else
     begin
          writeln('See programm oskab moodustada saba ', n,'st inimesest.');
          writeln('Sina aga peaksid ytlema, kes need inimesed on.');
{Paneme esimese}
        new(algus);
        algus^.jargmine:=nil;
        write('1. inimene: ');
        readln(algus^.nimi);
        lopp:=algus;
     for i:=2 to inimesi do
     begin
         new(uus);
         uus^.jargmine:=nil;
         write(i,'. inimene: ');
         readln(uus^.nimi);
         lopp^.jargmine:=uus;
         lopp:=uus;
     end;
         writeln('Kas sa soovid veel mäne inimese lisada oma j„rjekorda?');
         writeln('Vastad jah, kui vajutad y ja ei, kui vajutad n!');
         readln(x);
          if x='n' then
         begin
         writeln('Vaatame, kes seal sabas seisavad:');
         uus:=algus;
                    for i:=1 to inimesi do
                        begin
                             writeln(i,'. inimene on ',uus^.nimi);
                             uus:=uus^.jargmine;
                        end;
          end;
         if x='y' then
         begin
              writeln('Kirjuta siis veel ks liige j„rjekorda!');
              for i:=n+1 to inimesi+1 do
              begin
                   new(uus);
                   uus^.jargmine:=nil;
                   write(i,' . inimene: ');
                   readln(uus^.nimi);
                   lopp^.jargmine:=uus;
                   lopp:=uus;
              end;
              begin
                  writeln('Vaatame vahepeal, kes seal sabas seisavad:');
                  uus:=algus;
                             for i:=1 to inimesi+1 do
                                 begin
                                      writeln(i,'. inimene on ',uus^.nimi);
                                      uus:=uus^.jargmine;
                                  end;
              end;
     writeln('Kas sa tahad j„rjekorrast mäne nime „ra kustutada?');
     writeln('Programm kustutab nimekirja läpust!');
     readln(y);
     if y='n' then
     begin
          writeln('Kui ei, siis vaatame, kes seal sabas seisavad:');
                  uus:=algus;
                             for i:=1 to inimesi+1 do
                                 begin
                                      writeln(i,'. inimene on ',uus^.nimi);
                                      uus:=uus^.jargmine;
                                  end;
     end;
     if y='y' then
     begin
          writeln('Mitmu sa tahad „ra kustutada?');
          readln(z);
          begin
          if z>i then
          writeln('Sabas ei ole nii palju seisjaid!');
          if z<i then
          begin
          writeln('Ja nd vaatame, kes seal sabas veel seisavad:');
                  uus:=algus;
                             for i:=1 to (i-z) do
                                 begin
                                      writeln(i,'. inimene on ',uus^.nimi);
                                      uus:=uus^.jargmine;
                                  end;

     end;
     end;
     end;
     end;
     end;
     readln;
     clrscr;
end.