Распечатать список учеников музыкальной школы, которые учатся играть на скрипке

uses crt;
const n=3;
type uch=record
FIO,konkurs,let,instrument:string;
end;
mass=array[1..n] of uch;
var
x:mass;
i:word;
begin
clrscr;
Writeln('kol uchenikov: ',n,'');
for i:=1 to n do
begin
Writeln('Vvedite uchenika: ',i,'');
writeln('Vvedite instrument: ');
Readln(x[i].instrument);
Writeln('Vvedite FIO: ');
Readln(x[i].FIO);
Writeln('Vvedite konkurs: ');
Readln(x[i].konkurs);
Writeln('Vvedite ckolko let igraet na skripke: ');
Readln(x[i].let);
if x[i].instrument<>'skripka'  then
begin
Writeln('___________NO SPISOK___________');
end
else
begin
Writeln(i,'chelovek');
Writeln('________IN Spisok_______');
Writeln('FIO - ',x[i].FIO);
Writeln('Konkurs - ',x[i].konkurs);
Writeln('Zanim-sa mus - ',x[i].let);
Writeln('_______');
end;
end;
CLRSCR;
Writeln('________IN Spisok_______');
For i:= 1 to n do
    begin
         if x[i].instrument='skripka' Then
         begin
         Writeln(i,' chelovek');
         Writeln('FIO - ',x[i].FIO);
         Writeln('Konkurs - ',x[i].konkurs);
         Writeln('Zanim-sa mus - ',x[i].let);
         Writeln('_______');
         Writeln;
         end;
    end;
Writeln('________NO SPISOK_______');
For i:= 1 to n do
    begin
         if x[i].instrument<>'skripka' Then
         begin
         Writeln(i,' chelovek');
         Writeln('FIO - ',x[i].FIO);
         Writeln('Konkurs - ',x[i].konkurs);
         Writeln('Zanim-sa mus - ',x[i].let);
         Writeln('_______');
         Writeln;
         end;
    end;
readkey
end.