вывести фамилии всех футболистов которые забили больше двух голов. Паскаль

Если вводить футболистов с клавиатуры и их не больше, например, 25 человек, то программа может быть такая:Program futbol;var fio: array [1..25] of string;      gol: array [1..25] of integer;       i,j: integer;       f: string;begin   writeln ('Введите фамилии игроков, забивших голы');   writeln ('Окончание ввода - пустая строка');   j:=0;repeat      readln(f)   newfio:=true;   for i:= 1 to j do begin       if fio[i]=f then begin             gol[i]=gol[i]+1;              newfio:=not newfio;             end;       if newfio then begin           j:=j+1;           fio[j]:=f;   end;while not f='';for i:= 1 to j do begin  if gol[i]>2 then writeln fio[i];end;end.