Напечатать все слова, не содержащие ни одной цифры - Pascal

const rz=[' ','.',',','?','!'];{символы, разделители слов, можно добавить}
var s,s1:string;
    n,i,j,f,k:byte;
begin
writeln('Введите строку');
readln(s);
s:=' '+s;{добавим пробел в начало}
writeln('Слова, не содержащие ни одной цифры');
f:=0;
n:=length(s);
i:=2;
while i<=n do
if not(s[i] in rz)and (s[i-1] in rz) then{если не разделитель
                                и перед ним разделитель, то начало слова*}
 begin
  j:=i;
  s1:='';
  while (j<=n) and not(s[j] in rz) do {пока не разделитель и не конец строки}
   begin
    s1:=s1+s[j];
    j:=j+1;
   end;
  k:=0;
  j:=1;
  while(j<=length(s1))and(k=0) do
  if s1[j] in ['0'..'9'] then k:=1
  else inc(j);
  if k=0 then
   begin
    f:=1;
    writeln(s1,' количество букв=',length(s1));
   end;
  i:=i+length(s1);
 end
else i:=i+1;{пропускаем разделители}
if f=0 then write('Таких слов нет');
end.