Задача на паскале.

Заданы 2 числа. Определить, какое из них встречается в массиве чаще.

(нужно полное решение)

const max=10;

var

mas:array[1 ... max] of integer;

a, b:integer;

countA, countB:integer;

i:integer;

begin

readln (a, b) ;

for i:=1 to max do

begin

readln (mas[i]) ;

if (mas[i]=a) then countA:=countA+1;

if (mas[i]=b) then countB:=countB+1;

end;

if (countA>countB) then writeln ('Число', a,' встречается больше') ;

if (countB>countA) then writeln ('Число', b, ' встречается больше') ;

end.