Линейное программирование

for j:=1 to x do

begin

if (j in [1,2])and(i<>y1)then mgl_r[i,j]:=mgl[i,j].Text;

if j in [1,2] then continue;

if i=y1 then mgl[i,j].Text:=floattostr(strtofloat(mgl_r[i,j])/rm)

  else mgl[i,j].Text:=floattostr((strtofloat(mgl_r[i,j])*rm-strtofloat(mgl_r[y1,j])*strtofloat(mgl_r[i,x1]))/rm);

mgl[i,j].Text:=floattostr(round(strtofloat(mgl[i,j].Text)*e)/e);

end;

end; 

//процедура решения  по кнопке "Вычислить"

procedure TForm2.Button1Click(Sender: TObject);

var k:byte;

    rm:real;

begin

k:=1;

repeat

resh(xr,yr,rm,pr);

if not pr then showmessage(inttostr(k)+'-я таблица-результат');

mgl[yr,xr].Color:=clactiveborder;

if pr then begin showmessage('Результат:');

button1.Enabled:=false;

button3.Visible:=true;exit;end;

newtab(xr,yr,rm);

inc(k);

until pr;

end; 

//по закрытию  формы - выход из программы

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);

begin

form1.Close;

form3.Close;

end;