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

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

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

const max=10;var mas:array[1..max] of integer; a,b:integer; countA,countB:integer; i:integer;beginreadln (a,b);for i:=1 to max dobeginreadln (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.