Сейчас похоже нет глобальных переменных.
Если сделать вот так
var
a: longint;
function f(n: longint): longint;
s, t, v: longint;
begin
f := n + 1;
end;
a := f(3);
end.
то а будет глобальной
Объяснение: