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

[bpystep]

for i:=1 to n do
writeln(s[i]);

для всех 5: -7.9......
для всех 3: -6.4......

что то не так


следующее сообщение: нашел ошибку, надо было

s[i]:=0;

[bpystep]

program laba_2;
uses crt;
const N=1;
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,j:integer;
begin
    for i:=1 to N do
    begin
        writeln('Введите фамилию и инициалы');
        read(stud1[i].name);
        writeln('Введите номер группы');
        read(stud1[i].group);
        for j:=1 to 5 do
         begin
          writeln('Введите успеваемость студента из 5 оценок');
          read(stud1[i].ses[j]);
         end;
    end;
end;

procedure sort;
var
i,j,tmp:integer;
begin
for i:=n-1 downto 1 do
    for j:=1 to i do
        if stud1[j].group>stud1[j+1].group then
        begin
            tmp:=stud1[j].group;
            stud1[j].group:=stud1[j+1].group;
            stud1[j+1].group:=tmp;
        end;
end;

procedure output;
var
 i,k,j:integer;
 s:array[1..N] of real;
 r:real;
begin
 for i:=1 to N do
  s[i]:=0;
   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;
begin
    clrscr;
    input;
    sort;
    output;
    readkey;
end.

Спасибо огромное!!! я в долгу!!!

[maladoy]

За что? Вы ж ее сами сделали?

[bpystep]

За то что я даже не понимал что такое record, а теперь понимаю, вы дали мне разъяснения=) могу ли я чем нибудь отблагодарить?

[maladoy]

не надо ничего! лишь бы вам все было понятно!