Ввод-вывод массивов в функциях - PascalABC.NET

Формулировка задачи:

Требуется найти наибольшее число подряд идущих положительных элементов среди массива А(n), использовав функцию. Когда пытаюсь вызвать функцию, то выдает ошибку : Нельзя преобразовать тип array [1..10] of integer к array of integer. Что я сделал не так?

program dlasl;
uses crt;
var
a: array [1..10] of integer;
i,d:integer;
function sct (const X:array of integer):integer;
var
n,l,m:integer;
begin
l:=0;
m:=0;
for n:=1 to high(x) do begin
if (x[n]>0) then l:=l+1 else if
x[n]<0 then begin
if l>m then m:=l;
l:=0;
end;
end;
sct:=m;
end;
begin
for i:=1 to 10 do begin
a[i]:=random(100)-50;
write(a[i],' ');
end;
writeln;
d:=sct(a);
writeln(d);
end.

Решение задачи: «Ввод-вывод массивов в функциях»

textual
                            Листинг программы 
                        
                            function sct (const X:array of integer):integer;