Заменить повторяющиеся элементы массива произведением их значений на количество повторений, повторения исключить

uses crt;
const max=100;
type mas = array [1..max] of integer;
var
   a,b: mas;
   n,c,i,k: integer;
begin
     clrscr;
     writeln('Enter the number of elements: ');
     readln(n);
     writeln('Enter the elements: ');
     a[i]:=0;
     b[i]:=0;
     for i:=1 to n do
     begin
          read(c);
          k:=1;
          a[1]:=c;
          b[1]:=k;
     end;
     repeat
           read(c);
           inc(k);
           for i:=1 to k do
           begin
                if c<>a[i] then
                   begin
                        a[k+1]:=c;
                        inc(b[k+1]);
                   end
                else inc(b[i])
                end;
     until (k=n-2);
     for i:=1 to n do
     if b[i] <> 1 then writeln (a[i]*b[i],' ');
end.

uses crt;
const max=20;
type mas = array [1..max] of integer;
var a,b,prizn: mas;
     i,j,n,c,k: integer;
begin
     clrscr;
     writeln('Введите количество элементов последовательности: ');
     read(n);
     until n in [1..max];
     write;
     writeln('Введите элементы последовательности: ');
     for i:=1 to n do
         begin
               read(a[i]);
               b[i]:=0;
               prizn[i]:=0;
         end;
     c:=0;
     for i:=1 to n do
     if prizn[i] = 0 then
             begin
                  c:=c+1;
                  b[c]:=a[i];
                  k:=1;
                  prizn[i]:=1;
                  for j:=i+1 to n do
                  if a[i] =a[j] then
                     begin
                          prizn[j]:=1;
                          k:=k+1;
                     end;
                  b[c]:=b[c]*k;
             end;
    write('Результат: ');
     for i:=1 to c do
     write(' ',b[i]);
     readln;
end.