Написать программу, выводящую на экран фамилии и имена пассажиров, имеющих более 2 вещей

uses crt;
type bag=record{тип запись с полями по условию}
         fam:string[20];
         nam:string[15];
         kol:integer;
         end;
var n,i,j,k:integer;
    s:string;
    a:array[1..100] of bag;
    x:bag;
begin
clrscr;
{ввод N}
repeat
write('Количество пассажиров, n>=0');
readln(n);
until n>=0;
if n=0 then
 begin
  write('На данный поезд еще нет пассажиров');
  readln;
  exit
 end;
{ввод строк, их разбитие на слова и занесение в поля записей}
writeln('Введите стороки вида Фамилия Имя Кол.вещей');
for i:=1 to n do
 begin
  readln(s);
  with a[i] do
   begin
    fam:=copy(s,1,pos(' ',s)-1);
    delete(s,1,pos(' ',s));
    nam:=copy(s,1,pos(' ',s)-1);
    delete(s,1,pos(' ',s));
    val(s,kol,k);
   end;
 end;
{сортировка по фамилиям}
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i].fam>a[j].fam then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
{определение кол-ва вещей и вывод}
writeln('Пассажиры, имеющие более 2х вещей');
k:=0;
for i:=1 to n do
if a[i].kol>2 then
 begin
  k:=1;
  writeln(a[i].fam,' ',a[i].nam,' ',a[i].kol);
 end;
if k=0 then write('Нет пассажиров, имеющих более 2х вещей');
readln
end.