Массив: Найти количество одинаковых значений в массиве. - Turbo Pascal

const h=10;
var
  a: array [1..h] of Integer;
  i, j, cnt, c: Integer;
begin
  for i:=1 to h do begin
    Write('A[',i,'] = '); Read(a[i]);
  end;
  cnt:=0;
  for i:=1 to h-1 do begin
    j:=i-1; while (j>0) and (a[i]<>a[j]) do Dec(j);    {смотрим позади}
    if j>0 then Continue;
    c:=0; for j:=i+1 to h do if a[i]=a[j] then Inc(c); {считаем впереди}
    Inc(cnt,c+Ord(c>0));
  end;
  WriteLn(cnt);
end.