hallo,
so wie ich es verstanden haben sollen vier beliebige wörter eingegeben und dann sortiert werden. hier meine lösung:
program Project1;
{$APPTYPE CONSOLE}
uses sysutils, Classes;
var
i: Integer;
WortList: TStringList;
Wort: string;
begin
WortList := TStringList.Create;
for i := 0 to 3 do
begin
WriteLn('Bitte Wort ' + IntToStr(i + 1) + ' eingeben:');
ReadLn(Wort);
WortList.Add(Wort);
end;
WriteLn('Woerter sortieren? <Enter>');
WortList.Sort;
for i := 0 to 3 do
begin
Wort := WortList;
WriteLn(Wort);
end;
Read(i); //Nur damit konsole nicht gleich verschwindet.
end.