Как работать с записями ?

Const nmax=30;l='-------------------------------------------------------------------------------';
Type rasp=Record
     day:string;
     count:byte;
     time:string[12];
     name:string[14];
     fam:string[15];
    End;
Var A:array[1..nmax] of rasp;
    i,c,n:byte;
Begin
    Repeat
     write('Количество предметов: ');
     readln(n);
    Until n in [1..nmax];
    For i:=1 to n do
    Begin
      writeln('Информация о ',i,' предмете');
      write('День недели: ');readln(A[i].day);
      write('Количество пар: ');readln(A[i].count);
      write('Время начала и конца пары ( через пробел): ');readln(A[i].time);
      write('Название предмета: ');readln(A[i].name);
      write('Фамилия преподавателя: ');readln(A[i].fam);
    End;
    writeln(l);
    writeln('|День недели | Количество | Время н. и к. пары |    Предмет   | Преподаватель |');
    writeln(l);
    For i:=1 to n do
     if (A[i].name='Информатика') or (A[i].name='информатика') then
     Begin
       writeln('|',A[i].day:12,'|',A[i].count:7,'|':6,A[i].time:12,'|':9,A[i].name:14,'|',A[i].fam:15,'|');
       inc(c);
     End;
    if c=0 then writeln('Нету предметов "Информатика"');
    writeln(l);
    readln;
End.