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

7) Составить функцию, которая в строке произвольной длины находит число слов с минимальной длиной.

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

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

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

{удаление пробелов}
p:=pos(' ',s);
while p>0 do
begin
delete(s,p,1);
p:=pos(' ',s);
end;
if s[1]=' ' then delete(s,1,1);
if s[length(s)]=' ' then delete (s,length(s),1);

{сама программа}
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;

CHISLO:=kol;
end;

var s:string;
b:mas;
n,i,kol:integer;
begin
writeln('Vvedite kolichestvo strok');
readln(n);
for i:=1 to n do begin
CHISLO(s,b,kol);
writeln('Kolichestvo min dlin slov ',kol,' v stroke ',i);
end;
readln;
end.