[Басота]

У меня возник следующий вопрос: мне нужно реализовать две процедуры (coef , Prost) так, чтобы вторая процедура (Prost) использовала результаты (A,B,C,D), вычисленные благодаря первой процедуре (coef). Массивы u, unew глобальные. Значения m,n берутся с основной программы (procedure Button1Click (Sender: TObject)). Вопрос: как сделать так, чтобы процедура Prost могла видеть переменные A,B,C,D (как я могу передать значения A,B,C,D процедуре Prost)?. Процедуру coef не можна реализовать в процедуре Prost!!!

Пример:

Код:

Procedure coef (k,dt,dx,dy :single; ii,jj :integer);
var  A,B,C,D; single;
begin
A:=k*dt/dx;
C:=A;
B:=-2*A/dy;
D:=u[ii,jj]+unew[ii,jj];
End;
//-------------------------------------------------------------------------
Procedure Prost (m,n:integer)
Var
k,dt,dx,dy :single;
ii,jj,intr :integer;
Mas: array  // этот массив только для этого примера нужен, поэтому я его даже не описую
begin
dt:=1;
dx:=2;
dy:=3;
k:=1;
itr:=0;
for ii:=1 to n do
begin
		for jj:=1 to m do coef (k,dt,dx,dy,ii,jj);
		itr:=itr+1;
	end;
for ii:=1 to n do	Mas[ii,jj]:=A+B+C/D;
end;

procedure Button1Click (Sender: TObject)
…….
…….
…….