Создать текстовый файл,
состоящий из 2-3 предложений. Определить, есть ли в нем английские слова и
сколько.

Предполагается, что файл имеет имя d:/f.txt. 
var
  i,n:integer;
  s:string;
  f:text;
begin
assign(f,d:/f.txt);
reset(f);
readln(f,s);
repeat
  if s[1] in [a..z,A..Z] then n:=n+1;
  i:=pos( ,s);
  delete(s,1,i);
  until i=0;
writeln(Английских слов: ,n);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.