Дана последовательность из N чисел: а(1), а(2), а(3)..а(n). Найти количество чисел, которые являются двойными парными числами — Pascal(Паскаль)

Program lovely_pairs;
 
Var a: array [1..100] of integer;
    i, j, n, k: integer;
    
Begin
    Write('vvedite kol-vo chisel: '); Readln(n);
    For i := 1 to n do begin
        write('vvedite ', i, ' chislo: '); Readln(a[i]);
    End;
    k := 0;
    for i := 1 to n do begin
        for j := 1 to n do begin
            if (a[i] - a[j]) = 2  {parnye - eto  a-b == 2 }
            then begin k:=k+1; writeln('Para ', k, ': ', a[i], ' & ', a[j]); end;
        end;
    end;
 
End.