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

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

спасибо большое )

1) var s,i,a:integer;begins:=0;for i:=1 to 12 dobeginread(a);s:=s+a;end;writeln(s/12:0:2)end.2) var i,a,max,n:integer;beginmax:=-maxint;readln(n); {ввод кол-ва игроков в команде}for i:=1 to n dobeginread(a);if a>max then max:=a;end;writeln(max)end.