[Pascal] задачки на строки

[nikolin]

с клавиатуры вводится число N, обозначающее количество футболистов команды «Шайба», а затем – N строк, в каждой из которых – информация об одном футболисте таком формате:
<Фамилия> <Имя> <год рождения> <голы>
Все данные разделяются одним пробелом. Нужно подсчитать, сколько футболистов, родившихся в период с 1988 по 2000 год, забили более двух мячей.
ПОМОГИТЕ ОТЫСКАТЬ ОШИБКУ

program qq;
var c: char;
i, N, count, Year, Gol: integer;
begin
writeln('Количество футболистов');
readln(N);
count := 0;
for i:=1 to N do begin
repeat read(c); until c = ' ';
repeat read(c); until c = ' ';
read(Year);
readln(Gol);
if (1988 <= Year) and (year <= 1990) and 
(Gol = 0) then count := count + 1;
end;
writeln(count);
end.

Пожалуйста, оформляйте Ваш код согласно правилам.

[Аватар]

по 2000-ый год, а не по 1990-ый. Да и голов более 2, а не 0

[Naive]

Да и ввод какой-то странный... Я бы брал построчно по футболисту и парсил строку.
И мне, как фронтендеру, больно смотреть на такой ввод (да, знаю, текстовый режим). Сразу бы перерисовывать табличку на пробел/интер, чтобы юзер знал куда че вводить, сделать конец ввода данных, скажем, на эскейп и дать возможность перемещаться по полям стрелками...

Прям вспомнил свой 5й класс, когда в любой такой сраной задачке вдрачивался за юзер-френдли)))