Спланировать перевозки, чтобы стоимость была минимальной

program Kursovay;
uses crt,modul;
Begin
TextBackGround(black);
clrscr;
TextColor(Yellow);
Writeln ('Стоимость перевозки 1 тонны муки: ');
write ('C 1-го склада на 1-ый завод: ');
TextColor(red);
 read (a[1,1]);
 TextColor(Yellow);
write ('C 1-го склада на 2-ой завод: ');
TextColor(red);
 read (a[1,2]);
 TextColor(Yellow);
write ('C 2-го склада на 1-ый завод: ');
TextColor(red);
 read (a[2,1]);
 TextColor(Yellow);
write ('C 2-го склада на 2-ой завод: ');
TextColor(red);
 read (a[2,2]);
min:=9999;
use_s1 (a,min);
use_s2 (a,min);
writeln;
 TextColor(green);
write ('Минимальные затраты: ');
 TextColor(white);
write(min);
writeln;
TextColor(Yellow);
writeln('Для этого перевезено муки :');
writeln ('C 1-го склада на 1-ый завод : ',Z_1-rang,' тон');
writeln ('C 1-го склада на 2-ой завод: ',Z_2-(s_2-rang),' тон');
writeln ('C 2-го склада на 1-ый завод : ',rang,' тон');
writeln ('C 2-го склада на 2-ой завод : ',s_2-rang,' тон');
readkey;
end.
 
{и модуль ниже}
 
Unit modul;
interface
Uses crt;
type
 cen=array [1..2,1..2] of word;
const
 s_1=50;
 s_2=70;
 z_1=40;
 z_2=80;
var
 min,rang_ds2,rang_s1,rang_s2,lol:word;
 a:cen;
 i,j:word;
 procedure use_s1(c:cen;var min:word);
 procedure use_s2(c:cen;var min:word);
 
 implementation
 procedure use_s2(c:cen;var min:word);
 var
  s1,s2,ds1,ds2:integer;
  all:word;
 begin
  for ds2:=70 downto 30 do
   begin
    s2:=s_2-ds2;
    ds1:=z_2-ds2;
    s1:=s_1-ds1;
    if (s1>=0)and(s2>=0) and (ds1>=0)and(ds2>=0) then
    all:=ds2*c[2,2]+ds1*c[1,2]+s1*c[1,1]+s2*c[2,1];
    if all<min then
     begin
     min:=all;
     rang_ds2:=ds2;
     end;
   end;
 end;
 
 procedure use_s1(c:cen;var min:word);
 
 var
  s1,s2,ds1,ds2:integer;
  all:word;
 begin
  for ds1:=1 to 50 do
  begin
   s1:=s_1-ds1;
   ds2:=z_1-ds1;
   s2:=s_2-ds2;
   if (s1>=0)and(s2>=0) and (ds1>=0)and(ds2>=0) then
   all:=ds1*c[1,1]+ds2*c[2,1]+s1*c[1,2]+s2*c[2,2];
   if min>all then
    begin
    min:=all;
    rang_s1:=s1;
    end;
  end;
  for ds2:=1 to 40 do
   begin
   s2:=s_2-ds2;
   ds1:=z_1-ds2;
   s1:=s_1-ds1;
   if (s1>=0)and(s2>=0) and (ds1>=0)and(ds2>=0) then
   all:=ds1*c[1,1]+ds2*c[2,1]+s1*c[1,2]+s2*c[2,2];
   if min>all then
    begin
    min:=all;
    rang_s2:=s2;
    end;
  end;
  end;
end.