Упрашиваю ПОМОГИТЕ.Раз 5-ый кидаю((((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]lt;gt;2)and(C[j]lt;gt;0) then T:=1;
WriteLn('T = ',T);
End.

Примеры:

Введите строчку строчных английских букв
lkjjkl
T = 0

Введите строчку строчных британских букв
asdsa
T = 1