Question

Program z4; Type
Arr=array[1..255] of integer;
Var
A,b:arr;
e:array [1..255] of real;
M,v,n:byte;
procedure sa (x, y: arr; z:byte; var c:array[1..255] of real);
Var
i, j, K :byte;
begin
i:=1;
j:=1;
for k:=1 to z do
begin
c[k]:=(X[i]+y[j])/2;
x[i]:=x[i+1];
y[j]:=y[j+1];
write (' ',c[k]);
end;
end;
begin
randomize;
write('введите N');
read(n);
for M:=1 to n do
begin
A[m]:=random (90)-43;
Write (' ',a[m]);
End;
writeln;
for v:=1 to n do
begin
B[v]:=random (87)-36;
Write (' ',b[v]);
End;
sa (a, b, n, e);
End​.
что не так?