Как я понял, у вас программа идет так:
1) функция
2) основная программа
3) функция
В Паскале так нельзя. Все процедуры и функции должны идти выше основной программы.
Примерно так:
var a, b, c: integer;
procedure calculyator(x, y: integer; var z: integer);
begin
...
end;
function n2(a, b: real): real;
var x, y: real;
begin
...
end;
{Основная программа}
begin
...
end. Заметьте: end с точкой идет только один раз - в конце основной программы.