Строки паскаль

[Shnurik_sh]

Всем привет помогите пожалуйста решить задачку на строки. Ввести сторку, в каждом слове расставить символы по алфавиту.

[Stilet]

Наработки есть?

[SERG1980]

Как найти все слова в предложении и сортировка массива обсуждались просто очень много раз. Пользуйтесь поиском

[Veselyn]

здесь есть все что нужно!
http://www.popasnaya.com.ua/Pascal/Pascal11.htm

[Shnurik_sh]

наработки, рабоатет не так как надо сортирует сразу во всех словах, а нужно в каждом слове

program stroka;
uses crt;
var s:string;
    i,j,k,l,m,n,x:integer;
    a,b,c:char;
begin
write('введите строку');
writeln;
read(s);
writeln;
for x:=1 to length (s) do
for i:=1 to length (s) do
if s[i]=' ' then
   begin
      k:=i;
      for l:=k+1 to length (s) do
      if s[l]=' ' then
      begin
        m:=l;
        for n:=k+1 to m-1 do
        if s[n]>s[n+1] then
        begin
          a:=s[n];
          s[n]:=s[n+1];
          s[n+1]:=a;
        end;
      end;
   end;
write(s);
end.

[Veselyn]

Пропиши чтобы сортировало от пробела до пробела, пока не закончится строка

[Stilet]

Предлагаю так:

var a,s:string;k,i:integer;
begin
 a:='hello world';
 for i:=1  to length(a) do begin
   if a[i]<>' ' then begin
    k:=1;
    while (k<=length(s))and(a[i]>s[k]) do
     inc(k);
    insert(a[i],s,k);
   end else begin
    write(' ',s);s:='';
   end;
 end;
 write(' ',s);
 readln;
end.

[russian-stalker]

Сортирует в каждом слове символы по алфавиту (пример: acb dsa Fca, будет выглядеть так: abc ads aFc)

var
 s,t:string;
 i,j:integer;
 k:char;
begin
 readln(t);
while length(t)<>0 do
begin
 if pos(' ',t)<>0 then
 begin
  s:=copy(t,1,pos(' ',t)-1);
  delete(t,1,pos(' ',t));
 end 
  else
 begin
  s:=copy(t,1,length(t));
  delete(t,1,length(t));
 end;
 for i:=1 to length(s)-1 do
 for j:=length(s)-1 downto i do
 if ord(uppercase(s[i]))>ord(uppercase(s[j+1])) then//Сортировка без учёта регистра букв
 begin
  k:=s[j+1];
  s[j+1]:=s[i];
  s[i]:=k;
 end;
  write(s+' ');
end;
end.

[Shnurik_sh]

где плюсик то поставить???