01 семестр / Разное / Готовые решённые задачи в формате ТХТ / Строки / Задача 9 (функция - количество мин слов)

9) разработать функцию для подсчета в строке минимального слова. (не поняла что это значит, то ли указать длину мин слова, то ли указать количество таких слов, но если писать длину слова, то тогда не учитывается условие, "их может быть несколько", поэтому думаю надо искать их количество) Учитывать , что их может быть несколько. Функцию применить для многих строк , количесво которых вводится с клавиатуры.

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils;

type mas=array[1..20] of string;

function Min_sl (var s:string;n:integer):integer;
var i,kol:integer;
slovo,min:string;
b:mas;
begin
writeln('Vvedite stroku');
readln(s);

s:=s+' ';
slovo:='';
n:=0;
for i:=1 to length(s) do if s[i]<>' ' then slovo:=slovo+s[i]
else begin
n:=n+1;
b[n]:=slovo;
slovo:=''
end;
min:=b[1];
for i:=1 to n do
if length(b[i])<length(min) then min:=b[i];
kol:=0;
for i:=1 to n do
if length(b[i])=length(min) then
kol:=kol+1;
Min_sl:=kol;
end;

var n,k,i:integer;
st:string;
begin
writeln('Vvedite kol-vo strok');
readln(n);
for i:=1 to n do begin
k:=Min_sl(st,n);
writeln('Kolichestvo min slov ravno ',k);
end;
readln;
end.