Задача на строку. Паскаль.

[Razorishe]

Доброе время суток уважаемые посетители форума. Сколько пытался решить не получилось.. Буду благодарен за помощь. Условие задачи примерно такое:

Ввести с клавиатуры текст и количество букв в слове. Найти в тексте слова совпадающие с введеным количеством букв. Вывести найденные слова(каждое в новой строке), в скобках, после слова, указать количество букв. Причем слова могут быть разделены более чем одним пробелом.

[capta1n]

не понимаю, зачем выводить в скобках количество букв, если мы в начале ввели ограничение

[Razorishe]

Я тоже не понимаю, видимо этим просто хотели усложнить жизнь студентам, вот и всё

[capta1n]

program pascall;
var
 str1,str2 : string;
 i,k : byte;
 leng : byte;
begin
  writeln ('Enter string');
  readln (str1);
  writeln ('Enter number of letters in the word');
  readln (leng);
  str2:=str1+' ';
  while str2<>'' do
  begin
    while (str2[1]=' ') do delete (str2,1,1);
    k:=pos(' ',str2);
    if k=leng+1 then writeln (copy(str2,1,k-1),'(',leng,')');
    if k<>0 then delete (str2,1,k)
  end;
  readln
end.

[Razorishe]

Огромное спасибо capta1n, второй раз уже выручаешь

[capta1n]

если бы ты мне еще и отзыв оставил, я бы тебе был благодарен