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

x:=s;                   {s - входной текст}
k:=length(x);
y[0]:=x[0];
  for i:=1 to k do
  y[i]:=x[k-i+1];

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.