Помогите создать процедуру Опции

[V1P]

Здравствуйте.Проблема вот в чем:
есть часть кода программы:

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.Если нужно,то могу выложить полностью программу.Очень нужна помощь,так как у самого перегнать не получилось...

Сообщение отредактировано: V1P - 5.06.2007 21:15