Найти слово, содержащие наибольшее количество указанных букв

uses crt;
const rz=['_',':',';',',',' ','.','?','!'];
var s,s1,s2:string;
    c:char;
    i,k,n,max,p:byte;
begin
clrscr;
writeln('Введите текст на русском языке');
readln(s);
n:=length(s);
write('Введите букву для поиска c=');
readln(c);
i:=1;
max:=0;s2:='';
while i<=n do
if not(s[i] in rz)and ((i=1)or(s[i-1] in rz)) then{если буква, а перед ней разделитель, или она первая}
 begin
  k:=i;s1:='';p:=0;
  while not(s[k] in rz)and(k<=n)do {пока не разделитель и не конец строки}
   begin
    s1:=s1+s[k];{составляем слово}
    if s[k]=c then p:=p+1;{считаем заданную букву}
    k:=k+1;{идем вперед}
   end;
  if p>max then {если больше чем до этого}
   begin
    max:=p;
    s2:=s1;{запомним слово}
   end ;
 i:=i+length(s1);{перепрыгиваем}
 end
else i:=i+1;
if max=0 then write('Слов с буквой ',c,' нет')
else write('Наибольшее число букв ',c,' в слове ',s2);
readln
end.

if not (s[i] in ['A'..'Z','a'..'z','0'..'9']) then...

if not (s[i] in ['A'..'Z','a'..'z','0'..'9']) then

uses crt;
const rz=['_',':',';',',',' ','.','?','!'];
      rb=['А'..'п','р'..'ё'];
function Count(s:string;c:char):byte;{подсчет буквы в слове}
var i,k:byte;
begin
k:=0;
for i:=1 to length(s) do
if s[i]=c then k:=k+1;
Count:=k;
end;
var s,s1:string;
    a:array[1..100] of string;
    c:char;
    i,k,n,max:byte;
begin
clrscr;
writeln('Введите текст на русском языке, окончание Enter');
s:='';
n:=0;
repeat
c:=readkey;
if  (c in rb)or(c in rz) then
 begin
  n:=n+1;
  write(c);
  s:=s+c;
 end;
if c=#13 then writeln;
until c=#13;
write('Введите букву для поиска c=');
readln(c);
i:=1;
max:=0;
n:=0;
while i<=length(s) do
if not(s[i] in rz)and ((i=1)or(s[i-1] in rz)) then{если буква, а перед ней разделитель, или она первая}
 begin
  k:=i;s1:='';
  while not(s[k] in rz)and(k<=length(s))do {пока не разделитель и не конец строки}
   begin
    n:=n+1;
    s1:=s1+s[k];{составляем слово}
    k:=k+1;{идем вперед}
   end;
  if Count(s1,c)>max then max:=Count(s1,c);{если больше чем до этого}
  a[n]:=s1;{запишем слово в массив}
  i:=i+length(s1);{перепрыгиваем}
 end
else i:=i+1;
if max=0 then write('Слов с буквой ',c,' нет')
else
 begin
  writeln('Наибольшее число букв ',c,' в словах=',max);
  writeln('Это слова:');
  for i:=1 to n do
  if Count(a[i],c)=max then
  writeln(a[i]);
 end;
readln
end.

if  (c in rb)or(c in rz) then//если ввели не русскую букву или не разделитель, то ничего не выводится
 begin
  n:=n+1;
  write(c);
  s:=s+c;
 end;

repeat
c:=readkey;
if  (c in rb)or(c in rz) then
 begin
  n:=n+1;
  write(c);
  s:=s+c;
 end;
if c=#8 then//если не та буква, жмем BackSpase
 begin
  gotoXY(whereX-1,whereY);//курсор на 1 назад
  dec(s[0]);//уменьшаем длину строки, вводим что нужно
 end;
if c=#13 then writeln;
until c=#13;

var f:text;
............................
assign(f,'1.txt');//файл в папке с программой
reset(f);
while not eof(f) do
 begin
  readln(f,s);
  //деле с каждой строкой то что в коде
  end;
close(f);
..............
end.