Mn giúp mình ạ. Cho xâu s có độ dài tối đa là 10^3, đếm số xâu con có độ dài 2 phân biệt. Ex: INPUT: 6 1 2 3 4 4 5 OUTPUT: 11 Vì các cặp 12 13 14 15 2

uses crt;
var n,i,j,kt,s,k,z:longint; a:array[1..1000]of char; t:char;
begin
clrscr;
   readln(n);
   for i:=1 to n do
      begin
         read(a[i]);
         if i<>n then read(t);
      end;
   readln;
   for i:=1 to n do
      begin
         kt:=0;
         for j:=1 to i-1 do if a[i]=a[j] then kt:=1;
         if kt=0 then
            for j:=i+1 to n do
               begin
                  k:=1;
                  for z:=i+1 to j-1 do if a[j]=a[z] then k:=0;
                  s:=s+k;
               end;
      end;
   writeln(s);
readln
end.