Определить процедуру нахождения количества слов

Uses Crt; 
Var h: text; 
s,k:string; 
i,j,n,r,min,l:integer; 
f,t:boolean; 
a:array[33..175] of integer; 
 
Procedure Poisk(q:integer); 
begin 
Assign (h,'text.txt'); 
Reset (h); 
n:=0; 
t:=false; 
While Eof (h) = false do 
begin 
Readln(h,s); 
k:=''; 
f:=false; 
for i:=1 to length(s) do begin 
if (s[i]=' ') or (i=length(s)) then f:=true 
else f:=false; 
if f=false or (i=length(s)) then k:=k+s[i]; 
if f then begin 
for j:=1 to length(k) do 
if k[j]=chr(q) then t:=true; 
k:=''; 
if t then n:=n+1; 
t:=false; 
end; 
end; 
end; 
Close(h); 
a[q]:=n; 
end; 
 
begin
Clrscr;
for r:=33 to 175 do begin
poisk(r);
if a[r]>0 then begin
min:=a[r];
l:=r;
end;
writeln(chr(r),' ',a[r]);
end;
for r:=33 to 175 do begin
if (min>a[r]) and (a[r]>0) then begin
min:=a[r];
l:=r;
end;
end;
writeln('Следующие символы входит в наименьшее количество слов:');
for r:=33 to 175 do if a[r]=min then write('  ',chr(r));
write('Нажмите Enter'); 
readln 
end.

uses
  crt;
const
  dividers=[' ',',','.',';',':','-','=','+'];{дописать нужные разделители}
var
  s,temp:string;
  i,j,c:integer;
  ch:char;
begin
  clrscr;
  writeln('Введите строку...');
  readln(s);
  writeln('Введите букву...');
  readln(ch);
  temp:='';
  c:=0;
  for i:=1 to length(s) do{пробегаем всю строку посимвольно}
  begin
    if not (s[i] in dividers) then{если символ не входит в множество разделителей}
      temp:=temp+s[i];{тогда мы добавляем его к временной переменной}
    if (s[i] in dividers) or (i=length(s)) then{если же символ либо входит в множетсво разделителей либо данный символ последний}
    begin
      if temp<>'' then{если наша переменная не пуста}
      begin
        if (pos(ch,temp)<>0) or (pos(UpCase(ch),temp)<>0) then{если наша буква встечается хоть в верхнем хоть в нижнем регистрах}
          inc(c);{добавляем к счетчику слов}
        temp:='';{и не забываем опустошить переменную, нам ведь еще возможно искать...}
      end;
    end;
  end;
  writeln('Буква "',ch,'" встречается в ',c,' словах(ве).'){выводим собственно результат}
end.