program alfabetico;
uses crt;
var I,y,z,menor,m2,m,mn,m3,m4,z3: integer;
frase,x,abc,z2,f,z4: string;
b: char;
procedure ordenar;
Begin
b:= ' ';
abc := 'abcdefghijklmnopqrstuvwxyz';
writeln('Digite una frase');
readln(frase);
f:= b+frase;
for I:= 1 to length(frase) do
Begin
x:= copy(f,I,1);
y:= pos(x,f);
if(x = ' ') then
Begin
z:= y;
Delete(f,y,1);
z2:= copy(f,z,1);
z3 := pos(z2,abc);
write(z3);
End;
End;
End;
Begin
clrscr;
ordenar;
readkey;
End.