есть часть кода программы:
minz:=z[1];
iter:=1;
For i:=1 to m+n do begin
If (minz>z[i]) and (z[i]<>0) then begin minz:=z[i];
iter:=i;
end;
end;
For i:=1 to m do begin
If (a[i,iter]<>0) then x[i]:=a[i,m+n+1]/a[i,iter];
end;
For i:=1 to m do begin
If (x[i]>0) then begin min:=x[i];break;
end;
end;
k:=1;
For i:=1 to m do begin
If (min>x[i]) and (x[i]>0) then begin min:=x[i];
k:=i;
end;
end;
index[ind]:=k;
index1[ind]:=iter;
ix:=a[k,iter];
For j:=1 to m+n+1 do begin
a2[k,j]:=a[k,j]/ix;
end;
For i:=1 to m do begin
For j:=1 to m+n+1 do begin
If i<>k then a2[i,j]:=a[i,j]-a[i,iter]*a2[k,j];
end;
end;
For i:=1 to m do begin
For j:=1 to m+n+1 do begin
a[i,j]:=a2[i,j];
end;
end;
For i:=1 to m+n+1 do begin
z1[i]:=z[i]-z[iter]*a[k,i];
end;
For i:=1 to m+n+1 do begin
z[i]:=z1[i];
end;
Его нужно перегнать в procedure.Если нужно,то могу выложить полностью программу.Очень нужна помощь,так как у самого перегнать не получилось...