[stil]

Код:

var s:string;
    l,i,j:integer;
begin
write('s=');readln(s);
writeln(s);
l:=Length(s);
j:=l-1;
for i:=2 to l-1 do begin
  write(s[j],' ');
  writeln(s[i]);
  Dec(j);
end;
for i:=l downto 1 do
  write(s[i]);
readln;