на вход подаются сведения об учениках и оценках. Найти тех, кто сдал на "4" и "5" ( Паскаль )

[weech]

Добрый день.
Помогите, пожалуйста с задачей:

"На вод программе подаются сведения о сдаче экзаменов учениками некоторой школы. В первой строке сообщается кол-во учеников N [10-100]. Каждая из следующих N строк имеет следующий формат: <Фамилия> <Имя> <Оценки>. Где <Фамилия> - строка, состоящая максимум из 20 символов, <Имя> - строка состоящая максимум из 15 символов, <Оценки> - 3 целых числа, разделенных пробелом. Требуется написать программу, выводящую на экран фамилии и имена учеников, сдавших экзамены либо на 4, либо на 5."

Вот, что получилось у меня:

program e;
uses crt;
var
i,n            :integer;
LastName   :array [1..90] of string[20];
FirstName   :array [1..90] of string[15];
M1,M2,M3   :array [1..90] of integer;
begin

readln(n);

if n in [10..100]
then
   begin
   for i:=1 to n do
       readln(LastName[i],FirstName[i],M1[i],M2[i],M3[i]);

       for i:=1 to n do
           begin
       if (((M1[i]=4) or (M1[i]=5)) and ((M2[i]=4) or (M2[i]=5)) and ((M3[i]=4) or (M3[i]=5)))
       then writeln(LastName[i],' ',FirstName[i]);
            end;
   end;
end.

Есть еще второй вариант через case, но там тот же косяк - после ввода третьей строки "ошибка ввода".

[VIK_aka_TOR]

у тебя же все работает...
разве что вводить нужно: фамилия -> Enter имя -> Enter и т.д. ...