Вывести на экран список трактористов, коготрые выполняли заданный вид работы

uses wincrt;
type
    zapis = record
   number : byte;
     name : string[20];
     data : string[10];
      vid : string[10];
       ga : byte;
     time : string[10];
  pretenz : char;
end;
 
 
Var
     x : array[1..50] of zapis;
 n_vid : string[10];
   i,n : byte;
 
begin
  write('Количество записей :'); readln(n);
 
  for i:=1 to n do
    with x[i] do
         begin
             write('табельный номер                    : ');        readln(number);
             write('ФИО                                : ');        readln(name);
             write('Дата исполнения работы             : ');        readln(data);
             write('вид работы(боронирование, лущение) : ');        readln(vid);
             write('обработанная площадь, га           : ');        readln(ga);
             write('время исполения                    : ');        readln(time);
             write('наличие претензия (да/нет)         : ');        readln(pretenz);
             writeln('-------------------');
          end;
 
   write('Введите вид работы : '); readln(n_vid);
 
   for i:=1 to n do
       with x[i] do
            if n_vid = vid
               then
                   begin
                         clrscr;
                         writeln('табельный номер                    : ', number);
                         writeln('ФИО                                : ', name);
                         writeln('Дата исполнения работы             : ', data);
                         writeln('вид работы(боронирование, лущение) : ', vid);
                         writeln('обработанная площадь, га           : ', ga);
                         writeln('время исполения                    : ', time);
                         writeln('наличие претензия (да/нет)         : ', pretenz);
                         writeln('нажмите любую клавишу для продолжения списка:'); readkey;
                   end;
 
 end.

Type tfio=record
         Fam: string[20];
         Im: string[20];
         Ot: string[20];
       end;
       TST=record
          tabel_nomer: integer;
          fio: tfio;
          vid_rab: (bronirovanie,lushenie)
          s: integer;
          time: integer;
          pret: (da,net);
       end;
Var sp: TST;