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

[qwertytol]

Буду очень благодарен, если кто-нибудь поможет сделать.

Задан символьный файл. Определить процедуру нахождения количества слов, в которые входит данная буква, и применить ее для определения букв, которые входят в наименьшее количество слов.

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.

Мои нароботки

[dr.Chas]

Таких тем рассматривалось море. Там вприципе всё понятно, но если не разберёшься, спрашивай.

[Alex_FF]

ну я думаю надо вначале распаковку текста сделать, а потом уже в массиве искать...

процедура распаковки текста:

const 
  Len = 100;

type TWords = Array[1..Len] of String;

procedure Unpack(S: String; var Words: TWords; var N: Integer);
const
  Alphabet = ['A'..'Z', 'a'..'z'];
var
  I: Integer;
begin
  N := 0;
  I := 1;
  while I <= Length(S) do
  begin
    if S[I] in Alphabet then
    begin
      Inc(N);
      while (S[I] in Alphabet) and (I <= Length(S)) do
      begin
        Words[N] := Words[N] + S[I];
        Inc(I);
      end;
    end;
    Inc(I);
  end;
end;

Передаешь в эту процедуру строку текста, а она тебе разложит все слова из текста в массив Words и вернет число N - количество слов.
Words описывай как тип TWords.

ну для определения количества слов с данной буквой, проходишься циклом от 1 до N по массиву и проверяешь через функцию Pos() есть ли в слове буква эта или нет.