Ввести слово и вывести элементы массивов, в которых слово встречается более одного раза

uses crt;
const raz=[' ','.',',','?','!'];//разделители слов, можно добавить
      nmax=20;//макс размер массивов, можешь изменить
type mas=array[1..nmax] of string;//тип массив
procedure Massiv(var m:mas;var n:byte;c:char);//создание массива
var i:byte;
begin
repeat
write('Размер массива ',c,' до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Введите ',n,' строк-элементов массива:');
for i:=1 to n do
readln(m[i]);
writeln;
end;
procedure Vyvod(m:mas;n:byte;s:string;c:char);//поиск предложений
var i,j,k,f:byte;
begin
writeln('Введите слово для поиска:');
readln(s);
writeln('Элементы массива ',c,' в которых слово ',s,' есть более одного раза:');
f:=0;
for j:=1 to n do
 begin
  k:=0;
  for i:=1 to length(m[j]) do
  if(m[j][i]=s[1])and((m[j][i-1] in raz)or(i=1))//если первая буква слова, а перед ней                                                  //разделитель или она первая в строке
  and((m[j][i+length(s)] in raz)or(i+length(s)=length(m[j])+1))//и после слова разделитель
                                                                //или конец строки
  and(copy(m[j],i,length(s))=s)//и слово совпадает
  then k:=k+1;//считаем
  if k>1 then
    begin
     writeln(m[j]);
     f:=1;
    end;
 end;
if f=0 then writeln('Таких элементов нет!');
end;
var a,b:mas;
    sl:string;
    na,nb,i:byte;
begin
clrscr;
Massiv(a,na,'A');
Vyvod(a,na,sl,'A');
Massiv(b,nb,'B');
Vyvod(b,nb,sl,'B');
readln
end.