Ввести своє прізвище. вивести його горизонтально з проміжком між буквами (паскаль)

Это для Pascal ABC:

var s:string;

i:integer;

begin

write('Введите свою фамилию: ');

readln(s);

for i:=1 to length(s) do

write(s[i],' ');

end.

Это для Pascal ABC.NET:

begin

var s:=ReadString('Введите свою фамилию: ');

for var i:=1 to s.Length do

write(s[i],' ');

end.