Вывести количество слов в строке, длина которых меньше заданного числа к

const
  k = 5; // выводим слова, длина которых меньше этого значения
 
var
  s, c: string;
  n: integer;
 
begin
  readln(s); 
  s := s + ' ';
  while (pos(' ', s) <> 0) do
  begin
    c := copy(s, pos(' ', s) + 1, length(s));
    delete(s, pos(' ', s), length(s));
    if length(s) < k then begin
      inc(n); writeln(s)
    end;
    s := c; 
  end;
  writeln('Таких слов: ', n);
  readln
end.

Var s,s1:string;
    j,k,l:integer;
Begin
    write('Введите строку: ');readln(s);
    write('Введите k: ');readln(k);
    j:=pos(' ',s);l:=0;
    While j<>0 do
     Begin
      j:=Pos(' ',s);
      s1:=Copy(s,1,j-1);
      Delete(s,1,j);
      if (Length(s1)<k)and(j<>0) then 
       Begin
        inc(l);
        write(s1+' ');
       End;
      End;
     if Length(s)<k then 
       Begin
        inc(l);
        write(s+' ');
       End;
     if l<>0 then writeln('Таких слов: ',l) 
      else writeln('Таких слов нету');
End.