type tFunc = function(x:integer):integer;

function foo(x:integer):integer;
begin
foo := x + 1;
end;

function bar(x:integer):integer;
begin
bar := x - 1;
end;

const funcs:array[1..2] of tFunc = (@foo, @bar);

var i:integer;

begin
for i := 1 to 2 do
    writeln(funcs[i](3));
end.