программа со строками.

[dmitryio]

Ввести строку, состоящую из слов,разделенных пробелами. Удалить из каждого слова повторяющиеся буквы, заново вывести на экран.

[kropotkina-alice]

Слушаюсь!
Куда прикажете доставить решение?

[Sciv]

Сообщение от kropotkina-alice

Слушаюсь!
Куда прикажете доставить решение?

Да сразу преподавателю давай

[newerow1989]

var s:string;
    i,j,pr{probel}:integer;
begin
   Write('s = '); Readln(s);
   pr:=1;
   i:=1;
   While i<=Length(s) do
   begin
      If i=pr then
         For j:=i+1 to Length(s) do
         begin
            If s[j]=' ' then
            begin
               pr:=j;
               Break;
            end;
            If j=Length(s) then
               pr:=j+1;
         end;
      For j:=pr-1 downto i+1 do
         If s[i]=s[j] then
            Delete(s,j,1);
      i:=i+1;
   end;
   Writeln(s);
   Readln;
end.