Строки, слов в строке.... Опции

[Lyssa]

Помогите мне решить задачу. Дан файл, который содержит 4 строки, определить сколько слов имеет количество букв некоторого числа N.

Для одной строки в меня получаеся, а от для 4 не могу...
uses crt;

const
	A = ['A'..'Z'] + ['a'..'z'];
var
  n,i: Integer;
	s: String;
	j: Integer;
	Num: Integer;
 begin
	Write('Vedite radoc: ');
        readln(s);
  end;
 	Write('Dlina slova: ');
	ReadLn(n);

  
         j := 0;
	Num := 0;
	for i := 1 to Length(s) do
		if s[i] in A then 
			Inc(j) 
		else begin 
			if j = n then Inc(Num);
			j := 0; 
		end;
	if j=n then Inc(Num);
	WriteLn('V radky      ', Num, ' clov c dlinoy    ', n);
	ReadLn;
end.

М

Просьба соблюдать правила. Правила Форума, п.5, и правила раздела Задачи, п.2

[Lapp]

Вот, смотри, я сделал, что говорил: взял твое первое решение и зациклил его. Ввод теперь из файла dat.txt, сделай его. Я тестировал на таком:

Oh, jingle bells, jingle bells
Jingle all the way
Oh, what fun it is to ride
In a one horse open sleigh

А вот код:

const
  A = ['A'..'Z'] + ['a'..'z'];
var
  n,i,j,k,Num: Integer;
  s: String;
  f: text;

begin
  Write('Dlina slova: ');
  ReadLn(n);
  Assign(f,'dat.txt');
  Reset(f);
  Num := 0;
  while not EoF(f) do begin
    ReadLn(f,s);
    j := 0;
    for i := 1 to Length(s) do
      if s[i] in A then
        Inc(j)
      else begin
        if j = n then Inc(Num);
        j := 0;
      end;
    if j=n then Inc(Num)
  end;
  Close(f);
  WriteLn('In the file, there are ',Num,' clov c dlinoy ',n);
  ReadLn
end.

Совет: убери галку с опции "use Tab characters" - будет меньше мучений как тебе, так и тем, кто тебе помогает..