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

[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

[Lyssa]

Делала, но у меня получается 0.