УМОЛЯЮ ПОМОГИТЕ.Раз пятый кидаю(((( 40 баллов даю

Var S:string; C:array['a'..'z'] of integer; T,i:integer; j:char; Begin WriteLn('Введите строку строчных английских букв'); ReadLn(S); For i:= 1 to Length(S) do     C[S[i]]:=C[S[i]]+1; T:=0; For j:= 'a' to 'z' do     if (C[j]<>2)and(C[j]<>0) then T:=1; WriteLn('T = ',T); End. Примеры: Введите строку строчных английских букв lkjjkl T = 0 Введите строку строчных английских букв asdsa T = 1