Вычислить средний бал учеников в классе, если известны оценки каждого ученика (Паскаль)

[Tolya92]

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

program lab100301;
uses crt;
type
  tablica=record
  name:string[10];
  sred:real;
  rus,math,fiz:byte;
  end;
var
  a:tablica;
  mas:array[1..30] of tablica;
  s:real; n:integer;
  i:integer;
begin
  clrscr;
  writeln('введите количество учеников ');
  readln(n);
  for i:=1 to n do
    with mas[i] do
    begin
      write('фамилия ',i,'-го ученика : '); readln(name);
      write('русский язык: '); readln(rus);
      write('математика : '); readln(math);
      write('физика : '); readln(fiz);
      sred:=(rus+math+fiz)/3;
      s := s + sred;
      writeln('Средний бал ученика: ' , name,'  ',  sred:3:1);
    end.

Где ошибка?


_________
Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться,
а автор такой темы получать штрафы.

Прошу учесть на будущее...

Модератор.

[Serge_Bliznykov]

end; потеряли....

а ещё непонятно, зачем Вы сумму средних считаете? (кстати, если уж считатЬ, то s нужно обнулить перед циклом!). раз не выводите сумму, значит, она Вам не нужна я выкинул. получилось так:

program lab100301;
uses crt;
type
  tablica = record
    name: string[10];
    sred: real;
    rus, math, fiz: byte;
  end;
var
  a: tablica;
  mas: array[1..30] of tablica;
  n: integer;
  i: integer;
begin
  clrscr;
  writeln('введите количество учеников ');
  readln(n);
  for i := 1 to n do
    with mas[i] do
    begin
      write('фамилия ', i, '-го ученика : '); readln(name);
      write('русский язык: '); readln(rus);
      write('математика : '); readln(math);
      write('физика : '); readln(fiz);
      sred := (rus + math + fiz) / 3;
      writeln('Средний бал ученика: ', name, '  ', sred: 3: 1);
    end;
  Readln;
end.