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

program maxprib;
var
  g, d, a, b, max, s, x, y, i, j:longint;
begin
  writeln;
  write('Введите прибыль от производства гоночных велосипедов ,G, ден.ед =');
  readln(g);
 
  write('Введите прибыль от производства дорожных велосипедов ,D, ден.ед =');
  readln(d);
 
  write('Введите количество дорожных велосипедов выпускаемых в день, А = ');
  readln(a);
 
  write('Введите количество велосипедов, которые может принять склад ,B = ');
  readln(b);
  writeln;
 
  if a<b then
    begin
      max:=a*d;
      x:=a;
    end
         else
    begin
      max:=b*d;
      x:=b;
    end;
  y:=0;
 
  for i:=1 to a div 2 do
    for j:=1 to a-(2*i) do
      begin
      if (j+i<=b) and (j+(2*i)<=a) then
        begin
          s:=(j*d)+(i*g);
          if s>max then
            begin
              max:=s;
              x:=j;
              y:=i;
            end;
         end;
       end;
  writeln('Прибыль от гоночн. =',g,'   Прибыль от дорож. =',d,'   Кол. дорожн. в день =',a,'   Кол. которые может принять склад =',b);
  writeln('План выпуска дорожных велосипедов = ', x);
  writeln('План выпуска гоночных велосипедов = ', y);
  writeln('Максимальная прибыль = ', max);
  writeln;
  write ('Нажмите клавишу "ENTER" для завешения');
  readln;
end.