Составьте программу, отыскивающую в одномерном массиве A(N) число, встречающееся наименьшее количество раз и если таких чисел несколько, выбирающую из них наибольшее — Pascal(Паскаль)

uses crt;
const n=10;
var m,el,c:array[1..n]of integer;
i,j,k,min:integer;
f:boolean;
 
begin
 clrscr;
 write('-> ');
 for i:=1 to n do read(m[i]);
 readln;
 k:=0;
 for i:=1 to n do
 begin
  f:=false;
  for j:=1 to k do if m[i]=el[j] then
  begin
   f:=true;
   inc(c[j]);
  end;
  if not f then
  begin
    inc(k);
    el[k]:=m[i];
    c[k]:=1;
  end;
 end;
 min:=1;
 for i:=1 to k do if c[i]<c[min] then min:=i else if (c[i]=c[min]) and (el[i]>el[min]) then min:=i;
 writeln(el[min]);
 readln;
end.