Паскаль. Составьте программу подсчета числа различных составных элементов массива А(Т,Т).

vara: array [1..10] of integer;b:string;c,i:integer;beginRandomize;for  i:=1 to 10 do begina[i]:=Random(5);write(a[i]);end;b:=';c:=0;for  i:=1 to 10 doif (pos(inttostr(a[i]),b) =0) then begin b:=b+inttostr(a[i]); inc(c); end;writeln(c);end.//ABC Pascal