Вывести, сколько и каких обедов будет куплено, и сколько учеников останется голодными

const N=1000;
type
massiv=array[1..N] of integer;
var
A,C:massiv;
sum,kol,y1,y2,m,l:integer;
procedure zapol(m1:integer;var B:massiv);
var i:integer;
begin
     for i:=1 to m1 do
                 readln(B[i]);
  end;
procedure vivod(m1:integer;var B:massiv);
var i:integer;
begin
     for i:=1 to m1 do
                 write(B[i]:5);
     writeln;
  end;
procedure sortirovka(m1:integer;var B:massiv);
var i,j,n_max,temp:integer;
begin
     for i:=1 to m1-1 do
                      begin
                           n_max:=i;
                           for j:=i+1 to m1 do
                               if B[j]>B[n_max] then n_max:=j;
                           temp:=B[i];
                           B[i]:=B[n_max];
                           B[n_max]:=temp;
                       end;
  end;
procedure kolichestvo ???????????????????
 
begin
     repeat
           writeln('Введите количество учеников');
           readln(m);
           until(m>0) and(m<=1000);
           writeln('Введите количество денег у каждого ученика');
           zapol(m,A);
           writeln('Массив по количеству денег у каждого из учеников: ');
           vivod(m,A);
           l:=4;
           writeln('Введите стоимость каждого комплексного обеда');
           zapol(l,C);
           writeln('Стоимость обедов: ');
           sortirovka(l,C);
           vivod(l,C);
           kolichestvo(??);
  end.

const N=1000;
      m=4;
type
massiv=array[1..N] of integer;
procedure zapol(m1:integer;var B:massiv);
var i:integer;
begin
for i:=1 to m1 do
readln(B[i]);
end;
procedure vivod(m1:integer;var B:massiv;s:string);
var i:integer;
begin
writeln(s);
for i:=1 to m1 do
write(B[i]:5);
writeln;
end;
procedure sortirovka(m1:integer;var B:massiv);
var i,j,n_max,temp:integer;
begin
for i:=1 to m1-1 do
 begin
  n_max:=i;
  for j:=i+1 to m1 do
  if B[j]>B[n_max] then n_max:=j;
  temp:=B[i];
  B[i]:=B[n_max];
  B[n_max]:=temp;
 end;
end;
procedure kolichestvo(A,B:massiv;m1:integer;var C:massiv;var g:integer);
var i,j:integer;
begin
for i:=1 to m do
C[i]:=0; //сколько каких обедов возьмут
g:=0;//сколько останутся голодными
for i:=1 to m1 do
if A[i]>=B[1] then inc(C[1])
else if A[i]>=B[2] then inc(C[2])
else if a[i]>=B[3] then inc(C[3])
else if a[i]>=B[4] then inc(C[4])
else inc(g);
for i:=1 to m do
writeln('Обед за ',B[i],' руб. могут взять ',C[i],' учен.');
writeln('Голодными останутся ',g,' учен.')
end;
var A,B,C:massiv;
    k,g:integer;
begin
repeat
writeln('Введите количество учеников');
readln(k);
until(k>0) and(k<=1000);
writeln('Введите количество денег у каждого ученика');
zapol(k,A);
vivod(k,A,'Количество денег у каждого из учеников:');
writeln('Введите стоимость каждого комплексного обеда');
zapol(m,B);
sortirovka(m,B);
vivod(m,B,'Стоимость обедов');
kolichestvo(A,B,k,C,g);;
end.