program az;
var s, s1, s2:String;
i:Integer;
ch:Char;
begin
writeln ('Ââåäèòå ñòðîêó:');
readln (s);
s2:=s[1];
for i:=2 to length(s)-1 do
begin
if s[i]='-' then
for ch:=chr(i) to succ(s[i]) do
s2:=s1+ch
else s1:=s2+s[i];
writeln (s2);
end;
end.
У меня стало выводить точку О_О ура