program vasya3;
uses crt;
var
     s, sub: string;
     k, i, j: integer;

begin
clrscr;
writeln('Vvedite Stroku: ');
readln(S);

for k := 1 to 5 do
     begin
     j := 1;
     for i := 1 to length(s) do
         if (s[i] = ' ') or (s[i] = ',') or (s[i] = '.') then {usloviya razdeleniya slov}
            begin
            sub := copy(s, j, i - j); {zapomnili v peremennuy slovo}
            j := i + 1;
            if length(sub) = k then Writeln(sub); {vivodim slova}
            end;
     end;

readkey;
end.