Зашифровать все трехбуквенные слова, заменив все символы на символы с кодом, большим на три единицы

var
i: integer;
s,st,v: string;
len: integer;    
begin
  writeln('Введите слово');
  readln(s);
  i:=1;
  while i<=length(s)do begin
  st:='';
  while (v[i]<>'') and (v[i]<>' ')do begin
  st:=st+v[i];
  i:=i+1
  end;
  if length(st)=3 then begin
 len:= length(s); 
 end;
  for i:=1 to len do
    s[i] := chr(ord(s[i])+3);
  writeln('Зашифрованная строка ', s);
   for i:=1 to len do
    s[i] := chr(ord(s[i])-3);
  writeln('Исходная строка ', s);
 end;
 end.

uses crt;
var s:string;
    i,j,k:integer;
    len: integer;
begin
writeln('Введите строку из слов, разделенных пробелами');
readln(s);
i:=1;
while i<=length(s)do
if(s[i]<>' ')and((i=1)or(s[i-1]=' ')) then
 begin
  k:=0;
  j:=i;
  while (j<=length(s)) and (s[j]<>' ')do
   begin
    k:=k+1;
    j:=j+1;
   end;
  if k=3 then
  for j:=i to i+2 do
  s[j]:=chr(ord(s[j])+3);
  i:=i+k;
 end
else i:=i+1;
writeln('Зашифрованная строка:');
write(s);
end.