Текстовый файл 1

var f: text;
    letter: char;
    count, i: integer;
    wrd, str, filename: string;
 
//-----------------------------------------------------------------------------
 
function NextWord(const str: string; var i: integer): string;
var
  t: string;
 begin
   while (i <= length(str)) and (str[i] = ' ') do i:= i+1;
   t := '';
   while (i <= length(str)) and (str[i] <> ' ') do
    begin
      t := t + str[i];
      i := i + 1;
    end;
   NextWord := t
 end;
 
//-----------------------------------------------------------------------------
 
begin
  readln(filename);
  readln(letter);
  Assign(f, filename);
  Reset(f);
  if eof(f) then
    writeln('Файл пуст')
     else
       begin
         count := 0;
         while not eof(f) do
           begin
             readln(f, str);
              while (i <= length(str)) do
                begin
                  wrd := NextWord(str, i);
                  if wrd[1] = letter then inc(count)
                end;
           end;
     CloseFile(f);
   end;
 writeln(count);
 readln;
end.