Нужно решить через Паскаль с помощью циклов for или while

1) Известно количество пассажиров за каждый месяц. Вычислить ср. арифметическое за год

2) Известно кол-во очков каждого игрока команды. Определить лучшего.

1) var s, i, a:integer;

begin

s:=0;

for i:=1 to 12 do

begin

read (a) ;

s:=s+a;

end;

writeln (s/12:0:2)

end.

2) var i, a, max, n:integer;

begin

max:=-maxint;

readln (n) ; {ввод кол-ва игроков в команде}

for i:=1 to n do

begin

read (a) ;

if a>max then max:=a;

end;

writeln (max)

end.