Program UKAZ01B;
uses CRT;
type COSI = string[10];
     WSKAZ= ^STRU;
     STRU = record IM : COSI;
                   WS : WSKAZ;
           end;
var LIST, NOVY, NEXT, PRE : WSKAZ;
    CH:char;
Procedure OUTLIST(var FLIST:WSKAZ);
    var H:WSKAZ;
    begin  H:=LIST;
           repeat Writeln(H^.IM);
                  H:=H^.WS
           until H=nil;
    end;
begin ClrScr;
      new(LIST);                {tvorba a naplneni prvni polozky}
      with LIST^ do begin Write('Zadej prvni jmeno: '); Readln(IM);
                          WS := nil;
                   end;
      repeat new(NOVY);          {tvorba a naplneni dalsi polozky}
             with NOVY^ do begin Write('Zadej dalsi jmeno: '); Readln(IM);
                                 WS  := nil;
                          end;

             {zarazeni dalsi polozky dle velikosti do seznamu}
             NEXT:=LIST;
             repeat if NOVY^.IM<NEXT^.IM
                       then
                            begin if NEXT=LIST then begin NOVY^.WS:=LIST;
                                                          LIST:=NOVY
                                                    end
                                               else begin NOVY^.WS:=NEXT;
                                                          PRE^.WS:=NOVY
                                                    end;
                                  NEXT:=nil {Polozka je zarazena}
                            end
                       else begin PRE:=NEXT;
                                  NEXT:=NEXT^.WS;
                                  if NEXT=nil then PRE^.WS:=NOVY
                            end
             until NEXT=nil;
             Write('Budes jeste zadavat vstupni jmeno A/N? ');Readln(CH);
      until not (CH in ['a','A','y','Y']);

      {Je vytvoren tento serazeny linearni dynamicky seznam LIST:}
      Writeln('Vysledny serazeny LDS LIST:');
      OUTLIST(LIST);
end.