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

Если вводить футболистов с клавиатуры и их не больше, например, 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.