Из записей вывести тех, кто занимался игрой на скрипке — Pascal(Паскаль)

const 
  m=20;
type
  spisok = record
    fio: string;  
    inst: string;
    gody: integer;
    mer: string;
  end;
Var
  i,n: integer;
  SP:array[1..m] of spisok;
BEGIN
  Writeln ('kol-vo uchenikov');
  Readln(n);
  For i:=1 To n Do
   Begin
    Write(' FIO -> ');
    Readln(SP[i].fio);
    Write(' INSTRUMENT -> ');
    Readln(SP[i].inst);
    Write(' GODY OBUCHENIYA -> ');
    Readln(SP[i].gody);
    Write(' MEROPRIYATIYA -> ');
    Readln(SP[i].mer)
   End; 
  For i:=1 To n Do
   begin
    If (SP[i].inst)='skripka' Then Writeln((SP[i].fio),' ',(SP[i].gody),' ',(SP[i].mer));
   end;
  readln;
End.