Срочно Pascal

Question

Дан некоторый текст. Группы символов, которые разделены пробелами, и не имеют внутри себя пробелов, именуемые словами. Определить количество слов, длина которых равна k

Евгений · Accepted Answer

Текст берёт из файла file.txt, лежащего рядом с файлом паскаля
-----

var
 f: text;
 s: string;
 arrSlov: array of string;
 i, d, k: integer;

begin
 Assign(f,'file.txt');
 Reset(f);
 
 while not eof(f) do begin
 readln(f,s);
 s:=s+' ';
 repeat
 k:=pos(' ', s);
 SetLength(arrSlov, length(arrSlov)+1);
 ArrSlov[high(arrSlov)]:=copy(s,1,k-1);
 
 delete(s, 1, k);
 k:=pos(' ', s);
 until k = 0;
 end;
 
 Close(f);
 
 write('Выбрать слова с длиной = ');
 readln(d);
 for i:=0 to high(arrSlov) do
 if length(arrSlov[i]) = d then
 writeln(ArrSlov[i]);
 
end.