Создать текстовый файл, состоящий из 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.