Массивы, записи (pascal)

[bpystep]

Задание
1. Описать пользовательский тип данных с именем STUDENT типа
запись (RECORD), содержащий следующие поля:
- NAME - фамилия и инициалы (тип STRING);
- GROOP - номер группы (тип INTEGER);
- SES - успеваемость - массив из 5-и элементов (тип INTEGER).
2. Написать программу, выполняющую следующие действия:
- ввод с клавиатуры данных в массив STUD1, состоящий из 10-и за-
писей типа STUDENT; записи должны быть размещены по возрастанию
содержимого поля GROOP.
- вывод на дисплей фамилий и номеров групп для всех студентов,
включенных в массив, если средний балл студента больше 4.0.
- если таких студентов нет - вывести соответствующее сообщение.
Выбор режима работы программы и ввод исходных данных осуществля-
ется через окно диалога. Формируемый массив STUD1 отображаетя в
окнеисходных данных. Результаты поиска отображаются в окне
результатов.

Начало моего кода.

program laba_2;
uses crt;
const N=10;
type
student=record;
  name:string;
  group:integer;
  ses:array[1..5] of integer;
   end;
var
    stud1:array[1..N]of student;
procedure input;
var
i:integer;
begin
    for i:=1 to N do
    begin
        writeln('Введите фамилию и инициалы');
        read(stud1[i].name);
        writeln('Введите номер группы');
        read(stud1[i].group);
        writeln('Введите успеваемость студента');
        read(stud1[i].ses);
    end;
end;

Почему массив не хочет заполняться(веделено жирным в коде)?
пытался сделать отдельный цикл для массива ses, не получается=(

[maladoy]

потому что

stud1[i].ses

тоже массив а не переменная и
и заполняться должен в цикле от 1 до 5 и еще
причем здесь

writeln('Введите номер маршрута');

[bpystep]

а каким образом мне заполнить этот массив для данного студента?

[maladoy]

writeln('Введите успеваемость студента');
for k:=1 to 5 do begin // <---- вот так я думаю!
read(stud1[i].ses[k]); 
end;

[bpystep]

а как подсчитать средний бал студента из пяти его оценок???
я думаю вот так, но компилятор ругается при этом действии=(

for i:=1 to N do
for j:=1 to 5 do
r:=(stud1[i].ses[j]+stud1[i].ses[j-1])/5;

[maladoy]

var
r:array[1..N] of real;
............................
for i:=1 to N do
for j:=1 to 5 do
r[i]:=stud1[i].ses[j]+r[i];
for i:=1 to N do
r[i]:=r[i]/5;

[bpystep]

вывод программы получился вот такой, по-моему всё правильно, но на эран ничего не выводиться.

procedure output;
var
i,k,j:integer;
s:array[1..N] of real;
r:real;
begin
for i:=1 to N do
for i:=1 to N do
begin
for j:=1 to 5 do
begin
s[i]:=stud1[i].ses[j]+s[i];
end;
r:=s[i]/5;
if (r>4.0) then
begin
writeln('Фамилии студентов у которых средний балл > 4.0');
writeln('Искомый студент:');
writeln('Фамилия студента: ', stud1[i].name);
writeln('Группа студента: ', stud1[i].group);
k:=1;
end; end;
if k=0 then writeln('Таких студентов нет.');
end;
почему ничего не выводиться на экран??

[maladoy]

procedure output;
var
i,k,j:integer;
s:array[1..N] of real;
r:real;
begin
for i:=1 to N do
for j:=1 to 5 do
s[i]:=stud1[i].ses[j]+s[i];
k:=0;
for i:=1 to N do
if s[i]/5>4 then begin 
writeln('Фамилии студентов у которых средний балл > 4.0');
writeln('Искомый студент:');
writeln('Фамилия студента: ', stud1[i].name);
writeln('Группа студента: ', stud1[i].group);
inc(k);
end;
if k=0 then writeln('Таких студентов нет.');
end.

а так не проще?

[bpystep]

формула расчета

for i:=1 to N do
for j:=1 to 5 do
s[i]:=stud1[i].ses[j]+s[i];

наверно не правильная, тк к. я ввожу студенту все пятерки, а говорит что таких студентов нет((

[maladoy]

а ты отправь на экран значения s[i] и посмотри чего выдаст?