Вывести слова одинаковой длинны

[diekster]

Здрасте ! ))
Помогите пожалуйста дописать программу , сделал только что бы выводилось самое длинное слово а как сделать что бы вывелись все слова такой же длинны?

Вот код:
var
   t:text;
   Max,C:String;
   Pb:Byte;
begin
     read(c);
     Max:='';
     While Pos(' ',C) <> 0 Do
     Begin
        Pb:=Pos(' ',C);
           If Length(Max)<Length(Copy(C,1,Pb-1))
           Then Max:=Copy(C,1,Pb-1);
           Delete(C,1,Pb);
     End;
     If Length(Max)<Length(C)Then Max:=C;
     Write(Max);
    
end.

[spein]

Алгоритм:
1. Считаем количество слов в строке
2. Ищем длину первого слова
3. Ищем слова, что имеют такую же длину.
Я бы делал рекурсией.

[unbanned]

повтори цикл и выведи все слова длинны length(max)

[diekster]

Вот кому если интересно будет.

Var 
max,text,prov:string; 
i:byte;
begin
max:=''; prov:='';
Writeln('Vvedite text');
readln(text);
if text[length(text)]<>' ' then text:=text+' ';
for i:=1 to length(text) do
begin
if text[i]<>' '
then prov:=prov+text[i]
else begin
if length(prov)>length(max)
then max:=prov;
prov:='';
end;
end;
for i:=1 to length(text) do
begin
if text[i]<>' '
then prov:=prov+text[i]
else begin
if length(prov)=length(max)
then Writeln(prov);
prov:='';
end;
end;
readln;
end.