Лабораторная на строки. Ввести строку, в каждом слове расставить символы по алфавиту. Написал прогу, но не могу разобраться, сортирует только от пробела до пробела и всё сразу целиком, а не в каждом слове, помогите разобраться 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.
