БД

[PlayHard]

как мне сделать так чтоб моя программа выводила количество однофамильцев в очереди???
не знаю так написал а как дальше....ступор

procedure odnofamilci (H:TF);
var a:spisok;
    familia:string;
    k:integer;
begin
reset (h);
read (h,a);
writeln ('ВВедите фамилию для поиска однофамильца или * для вывода количества однофамильцев');
readln (familia);
K:=0;
while not eof (h) do
      begin
      read (h,a)
      if (familia=a.FIO) then
      writeln (a.FIO);
      K:=k+1;
      end;
writeln ('Количество человек с такой фамилией',k);
reset (h);
if familia='*' then
begin
     while not eof (h) do
           begin
           read (h,a);
           if -------<---------------Вот тут че вбивать??

ПОМОГИТЕ ПЛЗ САМ НЕ СПРАВЛЮСЬ