Pascal Shit

gistfile1.txt

for i:=1 to n do
begin
for i2 := 1 to d do if a[i] = b[i2] then FlagFound := true else begin FlagFound := false; c:=1 end; 
if flagfound = false then for i1 := (i + 1) to n do if a[i] = a[i1] then c := c + 1;
if (c > 2) and (FlagFound = false) then begin b[d + 1] := a[i]; d := d + 1; c := 0; end else c :=0; 
end;