Определить количество равных элементов заданного массива — Pascal(Паскаль)

Program fh;

type
  vector = array [1 .. 50] of integer;

var
  mas: vector;
  n: integer;
  i, KOL: integer;

procedure POVTOR(n: integer; a: vector);
  procedure ge(n: integer; a: vector);
  var
    i, j: integer;
    s: Boolean;
  begin
    for i := 1 to n do
    begin
      s := true;
      for j := 1 to i - 1 do
        if a[j] = a[i] then
          s := false;
      if s then
      begin
        Write(a[i], '  ');
        inc(KOL);
      end;
    end;
  end;

var
  i, j, w: integer;
  b: vector;
  s: Boolean;
begin
  w := 0;
  for i := 1 to n do
  begin
    s := true;
    for j := 1 to n do
      if (i <> j) and (a[j] = a[i]) then
        s := false;
    if not s then
    begin
      inc(w);
      b[w] := a[i];
    end;
  end;
  ge(w, b);
end;

begin
  KOL := 0;
  writeln('Vvedite razmer massiva A');
  read(n);
  for i := 1 to n do
  begin
    write('A[', i, ']=');
    readln(mas[i]);
  end;
  write('Vot vvedennyy vami massiv A- ');
  for i := 1 to n do
    write(mas[i], '  ');
  writeln;
  { ******************************b************************************************* }
  write('Vot POVTORIAYUSIESIA elementi massiva A- ');
  POVTOR(n, mas);
  writeln;
  writeln('IX kol-vo= ', KOL);
  readln;

end.