1:
2:
3:
4:
5:
6:
7:

VAR i : INTEGER;
      ausgabe, str1 : STRING;
BEGIN
  ausgabe:='';
  for i:=1 TO Lenth(str1)-1 DO ausgabe:=ausgabe+str1[i]+' '; 
  ausgabe:=ausgabe+str1[Length(str1)];
END;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

VAR i : INTEGER;
      ausgabe, str1 : STRING;
BEGIN
  ausgabe:='';
  for i:=1 TO Length(str1) DO
  begin
    ausgabe:=ausgabe+str1[i];
    if i mod 10 = 0 then ausgabe:=ausgabe+'*';
  end;
end;