Оптимизация симплекс методом

Program Simplex;
Var X: array [1..5,1..7] of real;
    i, j, k, jMind, iMins, flag, zf: integer;
    mind, mins, W, V, U, df: real;
Begin
     writeln('---------------------');
     for i:=1 to 4 do begin
     for j:=1 to 2 do begin
         write('x',j,'='); readln(X[i,j]);
     end;
     for j:=3 to 6 do begin
         write('y',j,'='); readln(X[i,j]);
     end;
         write('s',i,'='); readln(X[i,7]);
     end;
     for j:=1 to 7 do begin
         write('d',j,'='); readln(X[5,j]);
     end;
 
     writeln('---------------------');
     for i:=1 to 5 do begin
     for j:=1 to 7 do
         write(X[i,j]:6:3,' ');
     writeln(' ');
     end;
     flag:=0;
     Repeat
 
     mind:=9999999; jMind:=0;
     for j:=1 to 7 do begin
          if X[5,j]<mind then begin
             mind:=X[5,j]; jMind:=j;
          end;
     end;
     writeln('jMind=',jMind);
 
     mins:=9999999; iMins:=0;
     for i:=1 to 4 do begin
         W:=X[i,7]/X[i,jMind];
         if W<mins then begin
            mins:=W; iMins:=i;
         end;
     end;
     writeln('iMins=',iMins);
 
     V:=X[iMins,jMind];
     for j:=1 to 7 do begin
         W:=X[iMins,j]/V;
         X[iMins,j]:=W;
          end;
 
     for i:=1 to 4 do begin
         if i<>iMins then begin
            U:=X[i,jMind];
            for j:=1 to 7 do begin
                V:=X[iMins,j];
                W:=X[i,j]-V*U;
                X[i,j]:=W;
            end;
         end;
     end;
 
     zf:=0;
     W:=-X[5,jMind];
     for j:=1 to 7 do begin
         X[5,j]:=X[5,j]+X[iMins,j]*W;
         if X[5,j]<0 then zf:=zf+1;
     end;
 
     writeln('---------------------');
     for i:=1 to 5 do begin
     for j:=1 to 7 do
         write(X[i,j]:6:3,' ');
     writeln(' ');
     end;
     if zf=0 then flag:=1;
     Until flag=1;
 
     for i:=1 to 4 do
         for j:=1 to 2 do begin
             if X[i,j]=1 then writeln('x',j,'=',X[i,7]:2:3);
             end;
     writeln('MAX=',X[5,7]:2:3);
End.