Числа_Т

[Leshiy1]

Здравствуйте всем. Задача такая: В одномерном массиве подсчитать сколько раз встречается каждая пара чисел и вывести на экран.

Program Paru;
 Uses Crt;
 const n=10;
 var i,k:integer;
     a:array[1..n] of integer;
 begin
   Randomize; ClrScr;
   Textcolor(4);
   writeln;
   for i:=1 to n do
   begin
     a[i]:=random(10);
     write(' ',a[i]:1,' ');
   end;
 writeln;
 k:=0;
 for i:=1 to n do
 if  a[i]=a[i+2] then inc(k);
 writeln;
 write(' ',k);
 Readkey;
 End.

Помогите отредактировать