Строки в паскале

[Анатолий147711]

Доброе время суток. Подскажите пожалуйста, как переделать код в паскале, чтобы читало не одну введенную строковую величину, а несколько, а затем целочисленную величину к. Суть программы вот в чем:из первого файла нужно сравнить каждое слово из веденных строковых величин с величиной к. Если слово не больше к, записать его в другой файл.
Вот сама программа, но работает она лишь в том случае, если введена только одна строка.

 var f,g: TextFile;
    s,a:string;
    k,i,j:integer;

begin
assignFile(f,'Inlet.in');
assignFile(g,'Outlet.out');
reset(f);
rewrite(g);
readln(f,a,k);
i:=1;
   while i<=length(a) do
      if (a[i]<>' ')or((i=1)and(a[i-1]=' ')) then
         begin
         j:=i;
         s:='';
           while(j<=length(a))and(a[j]<>' ') do
             begin
             s:=s+a[j];
             j:=j+1;
             end;
            if length(s)<=k then
              begin
              writeln(g,s);
             end;
         i:=i+length(s);
         end
          else i:=i+1;
write;
          closeFile(f);
         closeFile(g);


end.

[Serge_Bliznykov]

Сообщение от Анатолий147711

Вот сама программа, но работает она лишь в том случае, если введена только одна строка.

не знаю, в каком Вы Паскале и как тестировали, но, может быть, вместо

readln(f,a,k);

написать

  readln(f,a);
  readln(f,k);

входной файл должен иметь следующий формат - первой идёт строка, содержащая ваши слова,
второй строчкой идёт целое число.

в выходной файл выводятся всё слова с длиной не более заданного числа.

например, входной файл Inlet.in

test new formulas the best paradigma 
7

тогда получим Outlet.out

test
new
the
best