club de futbol

[goomba91]

ya he realizado el codigo del programa

Código Delphi [-]
program jugador;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Const
Nmax=3;

Type

t_jugador=record
   nombre:string;
   peso:real;
   altura:real;
   rendimiento:real;
   num_gol:integer;
   tiempo: integer;
end;

t_club= Array[1..Nmax] of t_jugador;

var
 i:integer;
 player: t_club;
 x,y:integer;
 rendto:real;

function frend(var n1:integer;var n2:integer):real;
begin (*subprograma que nos determinara el rendimiento *)
   rendto:= (x/y)*100;
end;

begin (*programa principal *)
  for i:=1 to Nmax do
  begin 
    write('Escribe el nombre del jugador: ');
    readln(player[i].nombre);
    write('Escribe el peso del jugador(kg): ');
    readln (player[i].peso);
    write('Escribe la estatura del jugador(m): ');
    readln (player[i].altura);
    write('Escribe el numero de goles marcados: ');
    readln(player[i].num_gol);
    write('Escribe el tiempo jugado en minutos: ');
    readln(player[i].tiempo);
    x:= player[i].num_gol;
    y:= player[i].tiempo;
    frend(x,y);
    write('rendimiento: ',rendto:4:2,' %');
    readln;
  end;
  readln;
end.

pero me surgen las siguientes dudas:
-¿como hago para poder introducir el maximo numero de jugadores que quiera?, antes de empezar a rellenar los datos de cada uno, es decir, pedirlo por pantalla previamente.
-sigo sin saber como modificar un dato, se que deberia buscar por el nombre del jugador y posteriormente por el dato a modificar, pero no se inicia la busqueda ni como modificarlo.