Mọi người ơi giúp mình với Sinh ngẫu nhiên 50 con số nguyên trong khoảng từ 0 ->100. Đếm xem con số nào xuất hiện nhiều nhất trong dãy con số đó xuất hiện N lần thì N chính là số may mắn. Viết chương trình tìm và in ra con số may mắn đó

xem dung ko

program tong;
uses crt;
var Max,so,i,j:integer;
    A,B:array[0..100] of integer;
begin
 clrscr;    Max:=-10;
 randomize;
 For i:=1 to 50 do A[i]:=random(100);
 For i:=1 to 50 do
  begin
   j:=A[i];
   inc(B[j]);
  end;
 For i:=1 to 50 do write(A[i],' ');
 writeln;
 For j:=1 to 50 do if B[j]>=Max  then
  begin
   Max:=B[j];
   so:=j;
  end;
 writeln(so);

 readln;
end.

uses crt;

var a,b: array [1..100] of longint;

      i,max,so:longint;

begin

randomize;

for i:=1 to 50 do

a[i]:=random(100);

for i:=1 to 50 do

inc(b[a[i]]);

max:=0;

for i:=1 to 100 do

if b[i]>max then

begin 

max:=b[i];

so:=i;

end; 

write('Con so may man la: ',so);

readln;

end.