Выявление строки, в которой заданное слово встречается чаще

program task1;
type
    mas=array[1..100] of string;
procedure slova(k1,k2:integer; ws1,ws2:mas);
var
   i,j:integer; {schet4iki}
   flag:boolean;{nali4ie odinakovih slov v raznih strokah}
begin
     writeln('slova, vtrechayshiesa v obeih strokah: ');
     flag:=false;
     for i:=1 to k1 do {proverka na odinakovie slova}
         for j:=1 to k2 do
             if ws1[i]=ws2[j] then
                begin
                     write(ws1[i],' ');
                     flag:=true;
                end;
                if flag=false then
                writeln('net odinakovih slov v raznih strokah');
end;
procedure stroka (u1,u2:string);
var
   c:char;  {vvedennij simvol}
   i,z1,z2:integer;{s4et4iki}
begin
     writeln('vvedite simvol');
     readln(c);
     z1:=0;
     z2:=0;
     for i:=1 to 255 do {pods4et kolva zadannogo simvola v strokah}
         begin
              if (u1[i]=c) then
                 z1:=z1+1;
              if(u2[i]=c) then
                 z2:=z2+1;
         end;
     if z1>z2 then
        for i:=1 to 255 do
            write(u1[i])
     else
         if z2=z1 then
         write('v strokah odinakovoe kol-va simvolov ',c)
         else
            for i:=1 to 255 do
                write(u2[i]);
 
end;
var
    u1, u2:string;  {vvedennie stroki}
    ws1, ws2:mas;   {massivi slow}
    w: string;            {tekyshee slovo}
    len1,len2: integer;        {dlina strok}
    i, j: integer;
    f:text;
    k1,k2:integer; {s4et4ik slov}
    ch:char;
begin
     assign(f,'d:\tp7\ifile.txt');
     reset(f);
     readln(f, ch);
     readln(f,u1);
     readln(f,u2);
     i := 1;
     len1:=length(u1);
     len2:=length(u2);
     k1:=1;
     k2:=1;
     while i <= len1 do   {proverka 1go simvola }
           if ((u1[i]) >= 'A') and ((u1[i]) <= 'z') then
              begin
                   w := (u1[i]);
                   i := i + 1;
                   while (i <= len1) and        {proverka posl simvolov}
                   (u1[i] >= 'A') and
                   (u1[i] <= 'z') do
                         begin
                              w := w + u1[i];
                              i := i + 1;
                         end;
                        ws1[k1] := w;
                        k1:=k1+1;
              end
           else
               i := i + 1;
     i:=1;
     while i <= len2 do   {proverka 1go simvola}
        if ((u2[i]) >= 'A') and ((u2[i]) <= 'z') then
           begin
              w := (u2[i]);
              i := i + 1;
              while (i <= len2) and        {proverka posl simvolov}
              (u2[i] >= 'A') and
              (u2[i] <= 'z') do
                  begin
                     w := w + u2[i];
                     i := i + 1;
                  end;
                  ws2[k2] := w;
                  k2:=k2+1;
             end
                else
                    i := i + 1;
        slova(k1,k2, ws1,ws2);
        stroka(u1,u2);
        readln;
 
 
end.

uses crt;
var f:text;
    sl,s1,s2: string;
{процедура совпадения символов}
procedure Sovp;
var n,i,k:byte;
begin
if length(s1)>length(s2) then n:=length(s1) else n:=length(s2);
k:=0;
writeln('Совпадающие символы в строках');
for i:=1 to n do
if s1[i]=s2[i] then
 begin
  writeln(s1[i],' - ',i);
  k:=1;
 end;
if k=0 then writeln('Совпадающих символов нет');
end;
{процедура количества вхождений данного слова}
procedure Vstr;
const rz=[' ',',',';',':','.','?','!'];
var p,k1,k2:byte;
begin
k1:=0;
repeat
p:=pos(sl,s1);
if (p>0)and((p=1)or(s1[p-1] in rz))and((p+length(sl)-1=length(s1))or(s1[p+length(sl)] in rz))then
k1:=k1+1;
delete(s1,p,length(sl));
until p=0;
k2:=0;
repeat
p:=pos(sl,s2);
if (p>0)and((p=1)or(s2[p-1] in rz))and((p+length(sl)-1=length(s2))or(s2[p+length(sl)] in rz))then
k2:=k2+1;
delete(s2,p,length(sl));
until p=0;
if(k1=0)and(k2=0) then write('Слова ',sl,' в данных строках нет')
else if k1>k2 then   writeln('Слово ',sl,' чаще встречается в строке 1')
else if k2>k1 then  writeln('Слово ',sl,' чаще встречается в строке 2')
else write('Слово ',sl,' встречается в строках поровну');
end;
begin
clrscr;
assign(f,'input.txt');
reset(f);
readln(f,sl);
writeln('Слово ',sl);
readln(f,s1);
writeln('Строка 1');
writeln(s1);
readln(f,s2);
writeln('Строка 2');
writeln(s2);
close(f);
Sovp;
Vstr;
readln
end.

if (p>0)and((p=1)or(s1[p-1]=' '))and((p+length(sl)-1=length(s1))or(s1[p+length(sl)]=' '))then

if (p>0)and((p=1)or(s1[p-1] in rz))and((p+length(sl)-1=length(s1))or(s1[p+length(sl)] in rz))then

if (p>0)//если слово есть в строке
and((p=1)or(s1[p-1] in rz))//и оно первое или перед ним разделитель
and((p+length(sl)-1=length(s1))or(s1[p+length(sl)] in rz))//или оно последнее или за ним разделительъ
//т.е. слово отделено, инче можем не те слова найти, например если искать в строке
//стол, сторож, просто слово сто, которого в ней нет, без этих условий мы найдем его 3 раза
then