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

1.
Progran pass;
var
M: array [1..12] of integer;
n, s, i: integer;
sr: real;
begin
for i:=1 to 12 do
begin
write(Введите число пассажиров в ,i,-м месяце);
readln(M[i]);
end;
for i:=1 to n do s:=s+M[i];
sr:=s/12;
writeln(Среднее число пассажиров за год: ,sr);
readln;
end.

2.
Program igr;
var
I: array [1..100] of integer;
d, n, f,j, max: integer;
begin
write(Введите количество игроков: );
readln(n);
for j:=1 to n do
begin
write(Введите число очков ,j,-го игрока );
readln(I[j]);
end;
f:=I[1];
for j:=1 to n do if I[j]gt;f then
begin
max:=I[j];
f:=j end;
writeln(Наилучший игрок - ,f);
readln;
end.