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

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