Версия для печати темы

program legko;
uses
  sysutils;
var
  a: array [1..100] of string;
  st : string;
  i,n : integer;
  fl : boolean;
begin
n:=0;
readln(st);
st:=st+' ';
while pos(' ',st)>0 do
begin
  fl:=true;
  for i:=1 to n do
  if copy(st,1, pos(' ',st)-1)=A[i] then
  begin
     fl:=false;
     break
  end;
  if fl then
  begin
    n:=n+1;
    a[n]:=copy(st,1,pos(' ',st)-1)
  end;
  delete(st,1,pos(' ',st))
end;
for i:=1 to n-1 do
st:=st+a[i]+' ';
st:=st+a[n];
writeln(st);
readln
end.

var
  list:TStringList;
begin
  list:=TStringList.Create;
  try
    list.Sorted := True;
    list.Duplicates := dupIgnore;
    list.Delimiter := ' ';
    list.DelimitedText := '11043 11029 11029 11036';

    ShowMessage(list.Text);
  finally
    list.Free;
  end;
end;