Program Pascal : Mencari Modus

program modus;
uses wincrt;
var i,n,j,modus:integer;
x,jml:array[1..100] of integer;
begin
readln(n);
for i:=1 to n do
readln(x[i]);
writeln;
for i:=1 to n-1 do
begin
for j:=i+1 to n do
if x[i]=x[j] then
jml[i]:=jml[i]+1;
end;
modus:=1;
for i:=1 to n do
begin
write(jml[i],' ');
if jml[modus]<jml[i] then
modus:=i;
end;
write('modus: ',x[modus],' sebanyak ',jml[modus]+1);
end.