Anonymní profil Tomas – Programujte.com

Ahojte, pomohol by mi niekto s týmto príkladom ? potrebujem zostaviť program, ktorý náhodne vyberie 1000 čísel z intervalu (1,20). program následne má vypísať najčastejšie sa vyskytujúce číslo v poli a zároveň vypísať, koľkokrát sa toto číslo vygenerovalo. prvú časť programu mám, s druhou časťou si neviem poradiť.. bol by som veľmi vďačný, ak mi pomôžete  :) vopred ďakujem.

tu je zatiaľ prvá časť, ktorú mám:

program generovanie;
uses crt;
var i:integer; cisla:array[1­..1000] of integer;
begin
randomize;
for i:=1 to 1000 do
begin
cisla[i]:=ran­dom(20)+1;
writeln(i,'. ','vygenerovane cislo je: ',cisla[i]);
end;
readln();
end.