добавь функцию ens1 в forward;
Пример:
programm test;
var
i:integer;
function ens1(x,y:integer);forward;//теперь функцию можно вызывать из любого места в коде function ens1(x,y:integer):integer;
begin
ens1:=x+y;
end;
begin
i:=ens1(12,23);
drawtext(''+i,0,0);
repaint;
delay(5000);
end.
: 
