Строковый тип(PascalABCNET)

[FlayGlam]

В заданной строке текста выведите самое короткое (длинное) слово. Учтите, что таких слов может быть несколько. Удалите (удвойте) эти слова.

[newerow1989]

var s:string;
    i,i0,count:integer;
    slova:array of string;
begin
   Write('s = '); Readln(s);
   s:=s+' ';
   count:=0;
   i0:=1;
   For i:=1 to Length(s) do
      If s[i]=' ' then
      begin
         count:=count+1;
         SetLength(slova,count);
         slova[count-1]:=Copy(s,i0,i-i0);
         i0:=i+1;
      end;
   i0:=Length(slova[0]);
   For i:=1 to count-1 do
      If i0<Length(slova[i]) then
         i0:=Length(slova[i]);
   For i:=0 to count-1 do
      If i0=Length(slova[i]) then
         Writeln(slova[i]);
   Readln;
end.

А это не понял юмора:

Удалите (удвойте) эти слова.