Определить сколько учеников сможет купить комплексный обед

uses crt;
var m,a:real;
    i,n,b:integer;
Begin
clrscr;
write('Введите количество учеников = ');
readln(n);
if n>100 then write('Слишком большое значение, попробуйте ввести число менее 100')
        else
            begin
            write('Введите стоимость комплексного обеда = ');
            readln(m);
            b:=0;
            for i:=1 to n do
                            begin
                            write('Введите количество денег у ученика ', i,' = '); readln(a);
                            if a>=m then b:=b+1
                            end;
            end;
if n<=100 then
             case b of
                      1,21,31,41,51,61,71,81,91:write('Комплексный обед сможет купить ',b,' ученик');
                      2..4,22..24,32..34,42..44,52..54,62..64,72..74,82..84,92..94:write('Комплексный обед смогут купить ',b,'ученика');
                      5..20,25..30,35..40,45..50,55..60,65..70,75..80,85..90,95..100:write('Комплексный обед смогут купить ',b,'учеников');
                      0:write('Комплексный обед не сможет купить ни один ученик');
                      end;
readkey;
end.

program z1;
uses crt;
var
a,b,n,i:integer;
c:array [1..100] of integer;
begin
clrscr;
write ('Введите стоиммость обеда: '); readln(a);
write ('Введите количество учеников: '); readln(b);
for i:=1 to b do begin
write ('Введите количество денег ',i,'-го ученика: '); readln(c[i]);
end;
n:=0;
for i:=1 to b do begin
if (c[i]) >= a then
n:=n+1;
end;
write (n,' учеников смогут купить обед');
readln;
end.

program z1;
uses crt;
var
a,b,n,n1,d,i:integer;
c:array [1..100] of integer;
begin
clrscr;
write ('Введите стоимость обеда: '); readln(a);
write ('Введите количество учеников: '); readln(b);
for i:=1 to b do begin
write ('Введите количество денег ',i,'-го ученика: '); readln(c[i]);
end;
n:=0;
for i:=1 to b do begin
if (c[i]) >= a then
n:=n+1;
end;
write (n,' учеников смогут купить обед');
n1:=0;
for i:=1 to b do begin
n1:=n1+c[i];
end;
d:=n1 div a;
writeln;
writeln('А если все скинуться, то можно купить ',d,' порции(й) обеда!');
readln;
end.