Решить задачу циклом For с использованием массива:
Ввести данные о весе и росте N учащихся 9 класса.
Определить средние вес и рост учащихся в этом классе.
Заранее спасибо за ответ :з

Program n1;
const n=10;
var
a : array[1..n] of integer;
a1: array[1..n] of integer;
s,s1,i: integer;
begin
s := 0;
s1:=0;
for i := 1 to n do
begin
write(введите рост , i, ученика: ); readln(a[i]);
s := s + a[i];
write(введите вес ,i, ученика: );
readln(a1[i]);
s1:=s1+a1[i];
end;
writeln(средний рост: ,s/n);
writeln(средний вес: ,s1/n);
end.

//прога на Pascal`e
type
  myrec = record
  rost : byte;
  ves : byte;
  end;
var
  mas : array of myrec;
  n, i : byte;
  sumves, sumrost : longint;
begin
write (Введите кол-во учеников: );
readln (n);
setLength (mas, n);
  for i:=0 to n-1 do
  begin
  write (Введите вес , i+1, -го ученика: );
  readln (mas[i].ves);
  inc (sumves, mas[i].ves);
  write (Введите рост , i+1, -го ученика: );
  readln (mas[i].rost);
  inc (sumrost, mas[i].rost);
  end;

write (Средний вес учеников: , sumves / n, ; Средний рост: , sumrost / n)
end.