Помогите написать программу на PascalABCNET

Определите, сколько различных букв латинского алфавита встречается в строке. Регистр не учитывайте ('A' и 'a' — это одна и та же буква).

ВХОДНЫЕ ДАННЫЕ

Вводится строка, содержащая буквы латинского алфавита, пробелы, знаки препинания. Буквы могут быть как заглавные, так и строчные.

ВЫХОДНЫЕ ДАННЫЕ

Выведите одно число — количество различных букв в этой строке.

Partial Solution. Your score is = 3, 3/5 tests passed

Откуда взялся разрыв между 90 и 97? for i := 65 to 90 do high[i] := false; for i := 97 to 122 do low[i] := false;

var a,b: array [1..10000] of integer; z,i,j,n: integer;beginreadln(n); for i:=1 to N do read(a[i]); for i:=1 to n dobeginz:=0;for j:=1 to n doif a[i]=a[j] then inc(z);if z=1 then b[i]:=a[i]; end; for i:=n downto 2 do for j:=1 to i-1 do if b[j+1]<b[j] then Swap(b[j+1],b[j]); for i:=1 to N do if b[i]<>0 then write(b[i],' '); writeln; end.