Дан массив слов. Вывести слова, в составе которого есть цифры, предварительно добавив к слову это же перевернутое слово.Напишите функцию Good(s : string, var p : string), которая возвращает «подходит» ли слово или нет, тип возвращаемого значения — boolean.Сохраните ее под именем good.pas — Pascal(Паскаль)

uses crt;
const cf=['0'..'9'];
function Good(s:string;var p:string):boolean;
var i,j,n:byte;
begin
Good:=false;
p:=s;{новое слово}
for i:=1 to length(s) do
if s[i] in cf then {если есть цифры}
  begin
   Good:=true;
   break;
  end;
for j:=length(s)downto 1 do
p:=p+s[j];{добавляем это слово наоборот}
end;
 
var mas:array[1..20] of string;
    n,i:byte;
    res:string;
begin
clrscr;
repeat
write('Введите количество слов в массиве, не более 20 n=');
readln(n);
until n in [1..20];
writeln('Введите ',n,' слов:');
for i:=1 to n do
readln(mas[i]);
{выводим нужные слова}
writeln('Слова, содержащие цифры:');
for i:=1 to n do
if Good(mas[i],res)
then writeln(res,' ');
readln
end.