Помогите, составить программу рост и вес среднестатистического учащегося в Pascal ABC

const n=3; //к-во учеников var i:integer; sr,sw:real; r:array[1..n] of integer; w:array[1..n] of integer; begin sr:=0; sw:=0; for i:=1 to n do begin write('Рост ',i,' ученика: '); readln(r[i]); sr:=sr+r[i]; write('Вес ',i,' ученика: '); readln(w[i]); sw:=sw+w[i]; end; sr:=sr/n; sw:=sw/n; writeln; writeln('Средний рост ученика: ',sr:5:2); writeln('Средний вес ученика: ',sw:5:2); end.