Записи Опции

[emyly]

Составить список учебной группы, включающей 5 человек. Для каждого учащегося указать дату рождения, год поступления в ВУЗ, курс, группу, успеваемость по общеобразовательным предметам (математика, физика, информатика, история, ин. язык. Информацию о каждом учащемся оформить в программе в виде записи. Совокупность записей объединить в массив. Распечатать список студентов, фамилии которых начинаются с буквы А, и их оценки.

В FAQ была,читала. Программка вот:

Код

program grupa;
type student=record
fio : string[10];
godr:1986..1988;
godpostup:2003..2005;
ocenky:record
matem,history,inform,inglish,fizika:1..5
end
end;
var grupa: array [1..5] of student;
s1: student; i,j: integer;
begin
with s1, ocenky   do
begin
for i:=1 to 5 do
begin
write('Vvedite danie=>');
for j:= 1 to 5  do
read(fio[j]);
readln(godr,godpostup,matem,history,inform,inglish,fizika); {при запуске в этой строке выдаётся ошибка 201:Ошибка при проверке границ.}
grupa[i]:=s1
end
end;
writeln ('Spisok studentov na bukvu A:');
for i:= 1 to 5  do with grupa[i] do
if fio[1] in [‘A’] then
writeln  (fio,'godr',godr:4,'godpostup=', godpostup:4, ocenky);
end.

Что посоветуете для устранения ошибки и по программе вообщем? И ещё, совершенно дурацкий вопрос: как вводить данные после запуска программы? В какой последовательности? Помогите пожалуйста.

[volvo]

А если вот так попробовать:

program gruppa;
uses crt;
type
  student = record
    fio: string[20];
    godr: 1986..1988;
    godpostup:2003..2005;
    ocenky:record
      matem,fizika,inform,history,english:1..5
    end;
  end;

var
  grupa: array [1..3] of student;
  s1: student; i,j: integer;

begin
  clrscr;
  with s1, ocenky do begin
    for i:=1 to 3 do begin
      writeln ('vvedi dannie');
      write ('fio '); readln (fio);
      write ('godr [1986..1988]:'); readln (godr);
      write ('godpostup [2003..2005]:');readln (godpostup);
      writeln ('ocenky [1..5]:');
      write ('matem:'); readln (matem);
      write ('fizika:'); readln (fizika);
      write ('inform:'); readln (inform);
      write ('history:'); readln (history);
      write ('english:');  readln (english);
      grupa [i]:=s1
    end
  end;

  writeln ('spisok studentov na bukvu A:');
  for i:=1 to 3 do with grupa[i] do begin
    if fio[1] in ['A'] then { <--- Добавь еще русскую A}
      with ocenky do
        writeln (fio, ' godr=',godr:4, ' godpostup=', godpostup,
          matem:3,history:3,inform:3, english:3,fizika:3);
  end;
  readln;
end.

?