Технический форум - Помогите, пожалуйста, сделать лабу по паскалю...

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

Помогите, пожалуйста, сделать лабу по паскалю...

Введение сведений о 8 студентах: фамилия, год рождения, рейтинг по предметам:история алгоритмизация, дискретный анализ.
Вычислить средний балл группы и распечатать список студентов, имеющих средний бал ни ниже среднего балла группы.

Скоро будет.

Код:

const n=8;

var f1:array [1..n] of string;

    f2:array [1..n] of integer;

    f3,f4,f5:array [1..n] of byte;

    i:byte;s,srst,srg:real;

begin

for i:=1 to n do begin

write('введите фамилию ');

readln(f1[i]);

write('введите год рождения ');

readln(f2[i]);

write('оценка по истории ');

readln(f3[i]);

write('оценка по алгоритмизации ');

readln(f4[i]);

write('оценка по  дискретному анализу');

readln(f5[i]);

end;

s:=0;

for i:=1 to n do

s:=s+f3[i]+f4[i]+f5[i];

srg:=s/(n*3);

writeln('Средний бал по группе  ',srg:0:2);

writeln('Список студентов, имеющих средний бал ни ниже среднего балла группы.');

for i:=1 to n do begin

srst:=0;

srst:=(f3[i]+f4[i]+f5[i])/3;

if srst>srg then writeln(f1[i]);

end;

end.

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