Pascal: vypisat slova ktore maju viac nez 4 znaky rozne

program test;
uses crt;
var mnozina:set of char;
    mnozina2: set of byte;
    retazec1,retazec2: string;
    i,y,p,pocet:integer;
begin
clrscr;
mnozina:=['a'..'z'];
readln(retazec1);
for i:=1 to length(retazec1) do
 Begin
   p:=p+1;
   pocet:=0 ;
   retazec2:=retazec2+retazec1[i];
   if retazec2[i]<=chr(32) then
  begin
   for y:=1 to p do
      begin
      if ord(retazec2[y]) in mnozina2 then
         begin

         end
      else
           begin
      mnozina2:=mnozina2+[ord(retazec2[y])];
      pocet:=pocet+1;

      if pocet>=4 then writeln(retazec2);
           end;

      end;


   p:=0;
   retazec2:='';
  end;
 end;
repeat until keypressed;
end.