Не получаетя найти ошибку

var
  Slovo: String;
  i,a:integer;
  f,s:integer;
begin
  try
    writeln('Введите слово');
    readln(slovo);
    Insert(' ',slovo,1);
    a:=1;
    repeat
    f:=0; s:=0;
    inc(a);
      for I := 1 to Length(Slovo) do
        if Slovo[i]=' ' then
          begin
            f:=i;
            break;
          end;
      for I := i+1 to Length(Slovo) do
        if Slovo[i+1]=' ' then
          begin
          s:=i+1;
          break;
          end;
      for I := f to s do
        if (Slovo[i] in ['0'..'9'])
          then
            begin
              delete(Slovo,f,s-f);
              writeln('>>>',slovo);
            end;
      until a<>Length(Slovo);
 
    writeln(f,' ',s);
    Writeln(slovo);
  read(Slovo);
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

var
  Stroka, slovo: String;
  i,j,k:integer;
  chisla: set of char;
begin
chisla:=['0','1','2','3','4','5','6','7','8','9'];
writeln('Ââåäèòå ñëîâà, ðàçäåëÿÿ èõ ïðîáåëîì');
readln(stroka);
writeln('Ñëîâà â êîòîðûõ íåò ñèâîëîâ-öèôð:');
i:=0;
repeat
i:=i+1;
if (stroka[i] = ' ') or (i=length(stroka))
then
begin
k:=0;
if (i=length(stroka))and((stroka[i] <> ' ')) then slovo:=slovo+stroka[i];
for j:=1 to length(slovo) do
if slovo[j] in chisla then k:=1;
if (k=0)and(slovo<>'') then writeln(slovo);
slovo:='';
end
else
slovo:=slovo+stroka[i];
until length(stroka)=i;
end.