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

Program Stroka uses Сrt; var s,temp: string; i,c,k,d: integer; begin clrscr; write ('Введите строку: '); readln (s); write ('Введите длину: '); readln (k); temp: ='; c: =0; d: =length (s); for i: =1 to d do begin if s[i]<>' then temp: =temp+s[i]; if (s[i]=') or (i=d) and (temp<>') then begin if Length (temp)=k then c: =c+1; temp: ='; end; end; writeln ('Количество слов заданной длины: ',c); readkey; end.