Delphi. Pascal
Урок 14. Передача параметров по значению и по ссылке

...
//Объявление процедуры.
procedure proc(X: Integer);
begin
 //Изменяем X.
 X:=1;
end;
var
 r: Integer;
begin
 r:=25;
 //Вызов процедуры.
 proc(r);
 //Выведется 25
 Writeln(r);
 Readln;
end.

..
//Объявление процедуры.
procedure proc(var X: Integer);
begin
 //Изменяем X.
 X:=1;
end;
var
 r: Integer;
begin
 r:=25;
 //Вызов процедуры.
 proc(r);
 //Выведется 1
 Writeln(r);
 Readln;
end.

..
procedure proc(var X: Integer);
 ...