Напечатать фамилии, имена и подсчитать общее число жителей, родившихся после 1990 года

Const nmax=100;
      line='------------------------------------';
Type Perepis=Record
      Surname:string[15];
      Name:string[10];
      year:word;
     End;
Var A:array[1..Nmax] of Perepis;
    i,n,count:integer;
Begin
    Repeat
     write('Количество результатов переписи?1<=N<=',nmax,': ');
     readln(n);
    Until n in [1..nmax];
    For i:=1 to n do
    Begin
      writeln('Информация о ',i,' жителе');
      write('Фамилия: ');readln(A[i].Name);
      write('Имя: ');readln(A[i].Surname);
      write('Год рождения: ');readln(A[i].Year);
    End;
    writeln('Жители рожившиеся после 1990 года');
    writeln(line);
    writeln('|    Фамилия     |    Имя    | Год |');
    writeln(line);
    For i:=1 to n do
     if A[i].year>1990 then
     Begin
       writeln('|',A[i].Surname:16,'|',A[i].Name:11,'|',A[i].year:5,'|');
       inc(count);
     End;
    if count=0 then writeln('Нету жителей рожившихся после 1990 года');
    writeln(line);
    readln;
End.