Исправьте ошибку пожалуйста в function Pascal

[users1]

Не понимаю что компилятору не нравится в предпоследней строке
Код
program p2;

var
Arr_X, Arr_Y:array [1..3] of real;
S: real;

function Square(determ:real): real;
begin
//вычисление по формуле
S := 0.5*abs(determ);
Square := S;

end;

function determ(var Arr_X, Arr_Y: array of real):real;
begin
determ:=(Arr_X[1]-Arr_X[3])*(Arr_Y[2]-Arr_Y[3])-(Arr_X[2]-Arr_X[3])*(Arr_Y[1]-Arr_Y[3]);
end;

begin
for var i := 1 to 3 do
begin
writeln('Введите координаты x(', i , ')');
readln(Arr_X[i]);
writeln('Введите координаты y(', i , ')');
readln(Arr_Y[i]);
end;

writeln('Площадь вашего 3-угольника = ', Square(determ(Arr_X, Arr_Y)) );
end.

[ura_111]

Вроде бы "кол-во открывающихся скобок должно равняться кол-ву закрывающихся"...
Считай у себя в последней строчке.

[users1]

ura_111
это не то

[evg_m]

Не понимаю что компилятору не нравится в предпоследней строке

он обычно об этом говорит сам.
чтобы проанализировать сложную строчку(много вложенных функций), а некорректная строка именно такова, надо(можно) превратить ее в несколько более простых строчек с использованием дополнительных переменных.

dtm:=Determ(....);
q:=square(dtm);
writeln(..., q);

и наконец понять КАКАЯ из частей и почему ему не нравится.

[Serge_Bliznykov]

во-первых, обязательно нужно указывать, какой именно у Вас Паскаль.
судя по строчке:

for var i := 1 to 3 do

у Вас PascalABC.NET.
(в стандартном Паскале так переменные определять нельзя, а в этом монстре - можно).

во-вторых, Вам же ясно и чётко, по русски выдаётся причина ошибки компиляции:
Program1.pas(29) : Неправильный тип параметров подпрограммы

потому что массивы Arr_X, Arr_Y имеют тип array [1..3] of real
а в процедуре переменные описаны как array of real
(кстати, в другом Паскале такой подход мог сработать - см. "Открытые массивы" = Open Arrays, но не в Pascal ABC.NET!!!)

да и не нужен здесь открытый тип.
у Вас массивы одного типа, вот его и надо использовать, предварительно описав:

type PointArray = array [1..3] of real;
var
  Arr_X, Arr_Y : PointArray;
  S: real;

.....

function determ(var Arr_X, Arr_Y: PointArray):real;
begin
   determ:=(Arr_X[1]-Arr_X[3])*(Arr_Y[2]-Arr_Y[3])-(Arr_X[2]-Arr_X[3])*(Arr_Y[1]-Arr_Y[3]);
end;

.....