uses wincrt;
Var
t,t1:String[35];v,S,Min:String[15];
w:array[1..10] of String[15];
n,m,k,k1,i,j,MinN:Integer;
Begin
t:='мама мыла раму с мылом';
t1:=t;
k:=0; i:=0;
WriteLn('Неупорядоченные слова');
Repeat
i:=i+1;
k:=1;
m:=Length(t1);
k1:=Pos(' ',t1);
if k1<>0
Then
Begin
v:=Copy(t1,k,k1-1);
Delete(t1,k,k1);
End
Else
v:=Copy(t1,k,m);
w[i]:=v;
WriteLn (w[i]);
Until k1=0;
n:=i;
For i:=1 to n-1 Do
Begin
Min:=w[i];MinN:=i;
For j:=i+1 to n Do
If w[j]<Min
Then Begin Min:=w[j];MinN:=j;End;
S:=w[i];w[i]:=Min;w[MinN]:=S;
End;
WriteLn('Упорядоченные по алфавиту слова ');
For i:=1 to n Do
WriteLn(w[i]);
End.