Ну что же, раз Вы изволили удрать, не ответив на вопрос, то уж не взыщите - как понял:
Код:
Var
S1,S2,S0:String;
i:Byte;
Begin
S0:='---';
Repeat
Writeln('Enter the string:');
Readln(S1);
If Length(S1)>63 then Writeln('Too long! Try another.');
Until Length(S1)<64;
S2:='';
For i:=1 to Length(S1) do
S2:=S2+S0+S1[i];
Writeln(S2);
Readln
End.