Слово наоборот

[puporev]

Все намного проще.

uses crt;
var s:string;
    i:integer;
begin clrscr;
write('s:');readln(s);
for i:=length(s) downto 1 do
write(s[i]);
readln;
end.

[puporev]

Чтобы каждое слово печаталось с новой строки, нужно символу разделителя слов присвоить writeln. Например разделитель пробел:

uses crt;
var c:char;
begin
clrscr;
repeat
c:=readkey;
write(c);
if c=#32 THEN writeln;
until c=#27;
end.

[Ketu]

Спасибо всем, очень выручили.