Pascal: Дана строка. Слова разделены пробелами. Определить количество слов заданной длины

program space;var s: string; //s — строка с пробелами m, n, k, l: integer; // m - количество слов заданной длины, n - заданная длина,// k — счетчик цикла repeat (номер буквы в строке),// l - определяет наличие или отсутствие пробелов в наборе из n символов.beginwriteln(\'Введите строку с пробелами\');readln(s);writeln(\'Укажите длину слова\');readln(n);s:=\' \' + s + \' \';k:= 1;repeatif (s[k] = \' \') and (k < length(s) - n) and (s[k + n + 1] = \' \') then beginl:= 1;for i: integer:= 1 to n do if ord(s[k + i]) = 32 then l:= 0endelse l:= 0;m:= m + l;k:=k + 1;until k= Length(s) - n + 1;writeln(\'Число слов указанной длины:\', m)end.