Какие из рейсов на каждом маршруте надо исключить из расписания, чтобы маршруты стали рентабельными

const m=5; //кол-во маршрутов
      r=7; //кол-во рейсов на маршрутах
      k=50;//кол-во мест в автобусах
type avt=record //тип автобус
         ms,nm:integer;//кол-во проданных мест и номер по порядку на маршруте
         end;
     mtr=array[1..m,0..r]of avt;//матрица автобусов
     nrn=record //нерентабельные автобусы
         mr,nm:integer;//маршрут и номер рейса
         end;
    mnr=array[1..m*r]of nrn;//массив нерентабельных рейсов
//создание матрицы
procedure create(var a:mtr);
var i,j:integer;
begin
writeln('Состояние маршрутов');
writeln('------------------------------------');
writeln('|       |      номера рейсов       |');
writeln('|маршрут|--------------------------|');
writeln('|       | 1 | 2 | 3 | 4 | 5 | 6 | 7|');
writeln('------------------------------------');
for i:=1 to m do
 begin
  write('|',i:4,'   |');
  for j:=1 to r do
   begin
    a[i,j].ms:=10+random(k-9);
    a[i,j].nm:=j;
    write(a[i,j].ms:2,' |');
   end;
  writeln;
 end;
writeln('------------------------------------');
end;
//сортировка строк матрицы по возрастанию
procedure sort(var a:mtr);
var i,j,k:integer;
    t:avt;
begin
for i:=1 to m do
for j:=1 to r-1 do
for k:=j+1 to r do
if a[i,j].ms>a[i,k].ms then
 begin
  t:=a[i,j];
  a[i,j]:=a[i,k];
  a[i,k]:=t;
 end;
end;
//подсчет суммы проданных билетов x автобусов маршрута
function summa(a:mtr;i,x:integer):integer;
var j:integer;
begin
result:=0;
for j:=x to r do
inc(result,a[i,j].ms);
end;
//выбор нерентабельных на маршруте
procedure vybor(a:mtr;var b:mnr;var n:integer);
var i,j,s:integer;
begin
for i:=1 to m do
 begin
  s:=r;
  j:=1;
  while(j<=s)and(summa(a,i,j)/(k*s)<=0.75) do//пока маршрут не рентабельный
   begin
    inc(n);//считаем автобус с начала(с меньшим числом проданных мест)
    //пишем его в массив нерентабельных
    b[n].mr:=i;
    b[n].nm:=a[i,j].nm;
    dec(s);
    inc(j);
   end;
 end;
if n=0 then write('Нет нерентабельных маршрутов')
else
 begin
  writeln('Исключены из расписания');
  writeln('---------------------');
  writeln('|маршрут|номер рейса|');
  writeln('---------------------');
  for i:=1 to n do
  writeln('|',b[i].mr:4,'   |',b[i].nm:6,'     |');
  writeln('---------------------');
 end;
end;
 
var av:mtr;
    nr:mnr;
    n,i:integer;
begin
create(av);
sort(av);
n:=0;
vybor(av,nr,n);
end.