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

Question

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

Comments

нужен паскаль

---

Текст из файла с диска считываем или с клавы вводим?

---

текст

---

на диске

---

сделанный через блокнот

---

Ясно, сделаю попозже

---

хорошо, спасибо)

Answer 1

Предполагается, что файл имеет имя 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.