Олимпиадная задача

var x,i,j,s,y:integer;
n:array[1..100] of integer;
m:array[1..100000] of integer;
label c1;
begin
writeln('Введите колличество клавиш');
readln(x);
for i:=1 to x do
  begin
     n[i]:=random(100000);
     writeln(' ',n[i]);
  end;
writeln('Введите общее колличество нажатий');
readln(y);
writeln('Введите последовательность нажатых клавиш');
for j:=1 to y do
  begin
      read(m[j]);
      write(' ',m[j]);
  end;           
//for j:=1 to x-1 do
 //  for i:=1 to x-j do
 //     if M[i] > M[i+1] then
  //       swap(M[i],M[i+1]);
writeln(' ');
end.

program test;
var
n, i, col, m, sluch : integer;
arr_vyd, col_nazh : array[1..30] of integer;
arr_nazh : array[1..100] of integer;
begin
randomize;
writeln('Количество клавиш: n = ');
readln(n);
for i := 1 to n do
begin
arr_vyd[i] := random(100);
write(arr_vyd[i], ' ');
end; 
writeln('Количество нажатий = ');
readln(col);
for i := 1 to col do
begin
sluch := random(n);
arr_nazh[i] := sluch;
write(sluch, ' ');
end;
for i := 1 to n do
begin
for m := 1 to col do
begin
if arr_nazh[m] = i then col_nazh[i] := col_nazh[i] + 1;
end;
end;
for i := 1 to n do
begin
if col_nazh[i] > arr_vyd[i] then write('0 ')
else write('1 ');
end;
end.

var
  n, k, i, j, counter: integer;
  C, P, Res: array[1..100000] of integer;
  
begin
  writeln('');
  randomize;
  n := 1 + random(100);
  writeln(n);
  writeln;
  for i := 1 to n do 
  begin
    c[i] := 1 + random(100000);
    write(c[i], ' ')
  end;
  writeln;
  writeln;
  k := 1 + random(100000);
  writeln(k);
  writeln;
  for i := 1 to k do
  begin
    p[i] := 1 + random(n);
    write(p[i], ' ')
  end;
  writeln;
  writeln;
  for i := 1 to n do
  begin
    counter := 0;
    for j := 1 to k do
      if p[j] = i then counter := counter + 1;
    if counter > c[i] then Res[i] := 1 else Res[i] := 0;
    write(Res[i], ' ')
  end;
end.

c[i] := 1 + random(100000);