[Bargest]

А если так:

Код:

procedure a(b:integer);
begin
...
end;

procedure c;
var k:integer;
begin
...
 a(k);
end;

Как тогда делать без параметров? Вдобавок, частенько нужна именно копия переменной, чтоб не попортить саму переменную.