К сожалению в каждой строчке по ошибке.
int m [4] = {1, 2, 3}  //не хватает элемента
int result = ar [4]      //не хватает точки с запятой
if (result < int m [i]); //это бессмысленно. Точка с запятой говорит о том, что если условие выполнилось, нужно переходить дальше, ничего не делая.
void f (int*ar, int i)   //не бывает функций внутри функций. Это не Паскаль.

void f(int* ar)
{
  //работаем с массивом
}

int main()
{
   int ar[4];
   //что-то делаем
  f(ar); // вызываем функцию
}

CONST
e=0.0001;

VAR
i:INTEGER;
S,a:REAL;

function X2np(X:Extended; n:WORD):Extended;
Var i:INTEGER;
    Y:Extended;
BEGIN
  IF n=0 THEN X2np:=1 ELSE
  IF n=1 THEN X2np:=X ELSE
  BEGIN
    Y:=X;
    FOR i:=2 TO n DO Y:=Y*X;
    X2np:=Y;
  END;
END;

BEGIN
 S:=1;
 i:=0;
 REPEAT
  INC(i);
  a:=X2np(-1,i)/X2np((i+1)*(i+2),i);
  S:=S+a;
 UNTIL ABS(a)<e;
 WriteLn('S= ',S:7:5);
 ReadLn;
END.

CONST
 a=2.14;
 b=-4.21;
 c=3.25;
 Xbeg=-4.5;
 Xfin=-13.5;
 h=0.5;
VAR
 x,y,min,max:REAL;

FUNCTION f(x:real):REAL;
 BEGIN
  f:=(a*x*x+b*x+c)*sin(x);
 END;

BEGIN
 min:=f(Xbeg);
 max:=min;
 x:=Xbeg;
 WHILE ROUND(x*100)>=ROUND(Xfin*100) DO
  BEGIN
   y:=f(x);
   WriteLn(x:6:1,y:10:3);
   IF y>max THEN max:=y;
   IF y<min THEN min:=y;
   x:=x-h;
  END;
 WriteLn('Min= ',min:8:3);
 WriteLn('Max= ',max:8:3);
 ReadLn;
END.

CONST
e=0.001;

VAR
i:INTEGER;
S,a,x:REAL;

BEGIN
 Write('x= ');
 ReadLn(x);
 S:=0;
 i:=0;
 a:=1;
 REPEAT
  INC(i);
  a:=-a*x/i;
  S:=S+a;
 UNTIL ABS(a)<e;
 WriteLn('S= ',S:6:3);
 ReadLn;
END.