1)Нет проверки, что 0<N<=M.
2)Забыли после VAR I,N:Integer.
3)В цикле BEGIN и END забыли .
4)http://www.onlinecompiler.net/pascal.html есть очень удобный онлайн компилятор)).

--------------------------
у меня так получилось

Program Prim_43;
Const M = 100;
Var I,N: Integer;
X,Y,Z: Array [1.. M] of Integer;
Begin
I:=0;
write('Введите кол-во эл-тов массивов: ');
Readln (N);
writeln('введите массив X');
For I:=1 To N Do
begin
write('X[',I,']: ');
Readln (X[I]);
end;
writeln('введите массив Y');
For I:=1 To N Do
begin
write('Y[',I,']: ');
Readln (Y[I]);
end;
Write ('Z = ');
For I:=1 To N-1 Do
begin
Z[I]:= X[I]*Y[I];
Write (Z[I],', ');
end;
I:=I+1;
Z[I]:= X[I]*Y[I];
Write (Z[I]);
Readln;
end.