составить алгоритм для Робота: закрасить клетки вокруг стен в виде буквы Т и вернуться в исходное положение

Const
  bd=['0'..'3'];
var
  s,wa,wb,w:string;
  c:char;
  i,n:integer;
  bad_a:boolean;
begin
  WriteLn('Вводите фразу, разделяя слова ровно одним пробелом');
  Read(s);
  s:=s+' ';
  n:=Length(s); wa:=''; wb:='';
  i:=1; bad_a:=false; w:='';
  while i<=n do begin
    repeat
      c:=s[i];
      if c<>' ' then begin
        bad_a:=bad_a or (c in bd);
        w:=w+c;
        Inc(i)
      end
      else begin
        if not bad_a then wa:=wa+' '+w;
        if s[i-1]='Я' then wb:=wb+' '+w;
        w:=''; bad_a:=false
      end
    until c=' ';
    Inc(i);
  end;
  wa:=Copy(wa,2,Length(wa)-1);
  wb:=Copy(wb,2,Length(wb)-1);
  Writeln(wa);
  Writeln(wb)
end.

Var
  s,sd:string;
  i,n,sum,d,err:integer;
begin
  Writeln('Введите строку для суммирования');
  Read(s);
  sum:=0;
  n:=Length(s);
  if n>0 then begin
    i:=2; sd:=s[1];
    while i<=n do begin
      if s[i]<>'+' then sd:=sd+s[i]
      else begin
        Val(sd,d,err);
        sum:=sum+d;
        sd:=''
      end;
      Inc(i);   
    end;
    Val(sd,d,err);
    sum:=sum+d
  end;
  Writeln('Сумма равна ',sum)
end.

Тестовые примеры:
Введите строку для суммирования
1+25+3
Сумма равна 29

Введите строку для суммирования
143+38+253+62
Сумма равна 496