Pascal/Turbo Pascal - ayuda para realizar un programa en pascal

var

  Nombres:array of string;

  NroVendedor:integer;

  NroVentas:array of integer;

  opcion:byte;

procedure IngresarDatos;

var

  i:integer;

begin

    writeln('Ingrese el numero de vendedores a registrar ');

    readln(NroVendedor);

    SetLength(Nombres,NroVendedor);

    SetLength(NroVentas,NroVendedor);

    writeln();

    for i:=0 to NroVendedor-1 do

    begin

      Writeln('Ingrese el nombre del vendedor ');

      readln(Nombres[i]);

      writeln('Ingrese numero de ventas de ',Nombres[i]);

      readln(NroVentas[i]);

      writeln();

    end;

end;

procedure Mostrarventas;

var

  i:integer;

  pos:integer;

  maximo:integer;

begin

    maximo:=0;

    for i:=Low(Nombres) to High(Nombres) do

    begin

        if NroVentas[i]>maximo then

        begin

          maximo:=NroVentas[i];

          pos:=i;

        end;

    end;

    writeln();

   writeln('El mejor vendeor es ',Nombres[pos],' con ',maximo,' ventas ');

end;

begin

  repeat

  ClrScr;

  Writeln('Menu de ventas by Rene Gar ');

  writeln();

  writeln('Escoga el numero de alguna opcion ');

  writeln();

  writeln('(1) Ingresar Vendedor y Ventas');

  writeln('(2) Vendedor que mas vendio ');

  writeln('(3) salir ');

  readln(opcion);

  ClrScr;

  case  opcion of

    1:IngresarDatos;

    2:Mostrarventas;

    3:exit;

    else writeln('error vuelva a intentarlo ');

  end;

  writeln('De clic para continuar ');

  readln();

  until opcion=3;

end.