Требуется помощь в решении задачки - "Шифратор"

uses Crt;
const
	N=10; { кол-во символов в строке }
type
	TString = string[N];
var
	st: TString; { входная строка }
	StResult: TString; { результат - слово наоборот }
	i,j: integer;

	
begin
	writeln('Input anything word (after that press <Enter>:');
	readln(st);
	StResult:=St;
	j:=0;
	For i:=length(st) downto 1 do
		begin
			inc(j);
			StResult[j]:=st[i];
		end;
	
	writeln('Result string: ', StResult); { выводим на экран слово наоборот введенному }
	writeln;
	writeln('For ending press <ENTER>:');
	readln;	
end.

program marazm;

var s:string;
    i,wn,we:byte;

begin
write('vvedite stroku : ');
readln(s);
wn:=1;
write('obratnaya stroka : ');
for i:=1 to length(s) do begin
                         if s[i]=' ' then begin
                                          for we:=i-1 downto wn do write(s[we]);
                                          wn:=i+1;
                                          write(' ');
                                          end;
                         end;
for we:=i downto wn do write(s[we]);
readln;
end.