В FAQ была,читала. Программка вот:
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.
Что посоветуете для устранения ошибки и по программе вообщем? И ещё, совершенно дурацкий вопрос: как вводить данные после запуска программы? В какой последовательности? Помогите пожалуйста.