Ввести произвольное предложение с клавиатуры; выделить слова, в которых присутствуют цифры, скобками

//Ввести произвольное предложение с клавиатуры;
//выделить слова, в которых присутствуют цифры, скобками.
uses crt;
function cifry(s:string):boolean;//есть ли цифры в слове
var i:integer;
begin
result:=false;
i:=1;
while(i<=length(s))and not result do
if s[i] in ['0'..'9'] then result:=true
else inc(i)
end;
const rz=[' ',',','.','?','!',';',':'];{разделители слов, можно добавить}
var s,s1:string;
    i,j,p:byte;
begin
clrscr;
writeln('Введите строку');
readln(s);
s:=','+s;//добавим в начало разделитель для удобства
p:=0;//нет слов с цифрами
i:=2;
while i<=length(s) do
if not(s[i]in rz)and(s[i-1] in rz)then
 begin
  s1:='';//начало слова
  j:=i;
  while(j<=length(s))and not(s[j]in rz)do
   begin
    s1:=s1+s[j];//с
    j:=j+1; //составляем его
   end;
  if cifry(s1) then//если есть цифры
   begin
    p:=1;//фиксируем
    insert(')',s,i+length(s1));//вставляем закрывающую скобку
    insert('(',s,i); //открывающую
    i:=i+length(s1)+2;//перешагиваем через слово и 2 скобки
   end
  else i:=i+length(s1)//иначе через слово
 end
else i:=i+1;//пропускаем разделители
delete(s,1,1);//удалим первую запятую
if p=0 then writeln('Слов, содержащих цифры нет')
else writeln(s)
end.

if cifry(s1) then

if cifry(s1) then

if pos(?,s1)>0

const rt= ['1','2','3','4','5','6','7','8','9','0'];
if pos (rt,s1)>0

if pos('A',s)>0 then...

function cifry(s:string):boolean;//есть ли цифры в слове
var i:integer;
begin
result:=false;
i:=1;
while(i<=length(s))and not result do
if s[i] in ['0'..'9'] then result:=true
else inc(i)
end;

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