informatyki i systemów mikroprocesorowych

program slownik;

uses
  Crt;

type
  TWskaznik = ^TElement;
  TElement  = record
                Slowo : String;
                Nast  : TWskaznik;
              end;

var
  Slownik : TWskaznik;
  Slowo : String;

procedure Dodaj (Slowo: String);

var
  E, Pop, Nast : TWskaznik;
begin
  New (E);
  E^.Slowo := Slowo;
  if (Slownik = nil) or (Slownik^.Slowo>Slowo) then
  begin
    E^.Nast := Slownik; Slownik := E;
  end
  else
  begin
    Pop := Slownik; Nast := Slownik^.Nast;
    while (Nast <> nil) and (Nast^.Slowo<Slowo) do
    begin
      Pop := Nast;
      Nast := Nast^.Nast;
    end;
    E^.Nast := Nast;
    Pop^.Nast := E;
  end;
end;

procedure WypiszSlownik;

var
  E : TWskaznik;
begin
  E := Slownik;
  while E <> nil do
  begin
    write (E^.Slowo, ' ');
    E := E^.Nast;
  end;
end;

begin
  Slownik := nil;

  repeat
    ClrScr;
    write ('Slownik: ');
    WypiszSlownik;
    writeln;
    write ('Podaj slowo (Enter - koncz): ');
    readln (Slowo);
    if (Slowo <> '') then Dodaj (Slowo);
  until (Slowo = '');
end.