как найти в массиве слова содержащие более 5 букв (делфи) подскажите алгоритм нахождения таких слов (делфи)

{$apptype console}

uses
classes;

var
s: string;
sl: tstringlist;
c, k, n: integer;
na: array [#0..#255] of boolean;

begin
write('string? ');
readln(s);
sl := tstringlist.create;
sl.duplicates := dupignore;
sl.sorted := true;
sl.delimiter := ' ';
sl.delimitedText := s;
for c := 0 to sl.Count - 1 do begin
fillchar(n, 256 * sizeof(boolean), #0);
n := 0;
for k := 1 to length(sl[c]) do
if not na[sl[c][k]] then begin
na[sl[c][k]] := true;
inc(n);
end;
if n >= 5 then writeln(sl[c]);
end;
readln;
end.

ЗЫ:
Слова в изначальной строке должны быть разделены пробелом.