[Alegun]

Код:

procedure TForm1.Button1Click(Sender: TObject);
 
//----- До
var
n, k: integer;
//-----

begin

//----- После
n:= n1;
k:= k1;
//-----

...
..
.
end;

Локальным переменным передаются значения глобальных