Não estou conseguindo fazer a soma!

EU FIZ ESSE PROGRAMA MAIS NÃO TO CONSEGUINDO FAZER A SOMA DE TODOS OS VALORES LIDOS PELO USUÁRIO ,ALGUÉM PODE ME AJUDAR? LINGUAGEM PASCAL.

Program Pzim ;

Var

V1:array[1..5] of integer ;

I,MAIOR,MENOR,S:integer;

SOMA,MEDIA:REAL;

Begin

for i := 1 to 5 do

begin

 clrscr;

 writeln('INFORME O ',I,' NUMERO INTEIRO: ' ) ;

 read(V1*);*

end;

maior:=V1[1];

for i:=1 to 5 do

begin

* if(V1** > maior) then*

* maior:=V1**;*

end;

menor:=V1[1];

for i := 1 to 5 do

begin

* if (V1** < MENOR ) THEN*

* MENOR:=V1**;*

end;

SOMA:=(MAIOR + MENOR);

MEDIA:=(SOMA/2);

BEGIN

* S:=S+V1**;*

END;

writeln('' ) ;

writeln('O MENOR NUMERO DIGITADO FOI ',MENOR ) ;

writeln('O MAIOR NUMERO DIGITADO FOI ',MAIOR ) ;

writeln('A SOMA DO MAIOR E MENOR NUMERO E ',SOMA:2:0 ) ;

writeln('A MEDIA DO MAIOR E MENOR NUMERO E ',MEDIA:2:0 ) ;

writeln('A SOMA DE TODOS OS NUMEROS DA SEQUENCIA E ',S) ;

READKEY;

End.