Вопрос о подключении модулей в Lazarus

Привет всем!

У меня вопрос такой:

При подключении модулей в Lazarus, переменные из программы не поступают в модуль. Такая же проблема при перекрестном подключении модулей. Ниже представлен простой пример, иллюстрирующий данную проблему

программа:

DelphiВыделить код

1
2
3
4
5
6
7

program Project1;
uses Unit1;
begin
X:=1;
Writeln('y=',y);
Readln;
end.

модуль:

DelphiВыделить код

1
2
3
4
5
6
7

unit Unit1;
interface
var y, X: real;
implementation
begin
y:=X;
end.

В примере необходимо переменной "y" присвоить значение переменной "X=1", при работе программы получаем "y=0", а должно быть "y=1". Каким образом можно решить данную проблему?