ошибочку исправьте

[TeHno LIvE]

program Project2;

{$APPTYPE CONSOLE}

uses
SysUtils,
Math,
Unit1 in 'Unit1.pas';

var
M, N,P: mnogoch;
i, e, r,s: integer;

begin
{ TODO -oUser -cConsole Main : Insert code here }
Writeln('vvedite kolichestvo elementov mnogochlena');
Readln(e);
For i:= 1 to e do begin
M(i):= random(10);
N(i):= random(10);
end;
writeln ('Mnogochlen M:');
For i:= 1 to e do begin
write (M(i));
end;
writeln ('Mnogochlen N:');
For i:= 1 to e do begin
Write (N(i));
end;
Writeln ('vvedite 1 pokazatel stepeni');
readln (r);
Writeln ('vvedite 2 pokazatel stepeni');
readln (s);
For i:= 1 to e do begin
P(i):= ((M)stepen(r))raznost((N)stepen(s)) ;
end;
Writeln
For i:= 1 to e do begin
write (P(i));
end;
end.



Unit 1

unit unit1;

interface

Type
Mnogoch= array[1..500] of integer;

End

Procedure Summa(A, B : mnogoch; Var C : mnogoch);
Procedure Raznost(A, B : mnogoch; Var C : mnogoch);
Procedure Proizvedenie(A, B : mnogoch; Var C : mnogoch);
Procedure Chastnoe(A, B : mnogoch; Var C : mnogoch);
Procedure Stepen(A : mnogoch; K : integer; Var C : mnogoch);
Function Menshe(A, B : mnogoch) : Boolean;
Function Bolshe(A, B : mnogoch) : Boolean;
Function Ravno(A, B : mnogoch) : Boolean;

implementation


Procedure Summa; {Сумма}
Begin
(C(i) := (A(i) + B(i)));

End;
Procedure Raznost; {Разность}
Begin
C(i) := (A(i)- B(i));

End;
Procedure Proizvedenie;
Begin
C(i):= A(i) * B(i));

End;
Procedure Chastnoe;
Begin
C(i) := (A(i))/( B(i));


End;
Procedure Stepen; {Степень}
Begin
C(i):= (A(i))power(K);
End;
Function Menshe;
Begin Menshe := A(i)<B(i) End;
Function Bolshe;
Begin Bolshe :=A(i)>B(i) End;
Function Ravno;
Begin Ravno :=A(i)=B(i) End;

end.



Ошибка в процедуре скорее всего