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;beginrandomize;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​. что не так?