Pascal/Turbo Pascal - Hola, necesito ayuda con un ejercicio de vectores

Program EjercicioDeVectores;

uses crt;

const LIMITE_MAX = 1000;

      CANTIDAD_ELEMENTOS = 500;        // Por poner un valor cualquiera

type TVector = array[1..CANTIDAD_ELEMENTOS] of Integer;

var A, B: TVector:

  Max: Integer;  // No me gusta usar el identificador Max como nombre de variable porque ya hay

     // una funcion Max en el modulo math y si se usa este modulo puede haber conflictos.

     // Pero bueno, lo mantengo. Otra cosa. El enunciado no define si Max tiene

     // el mismo valor siempre (creo que si) o es modificable/definible por el operador.

     // Si es lo segundo, usar DefinirMax

  Fil: Integer;

  Pos: Integer;       // Ocurre lo mismo que con Max. Pos tambien es el nombre de una funcion de Pascal

  Opcion: integer;

Procedure DefinirMax(var Max: Integer);

begin

     // Hacer un bucle Repeat...Until con una readln que permita introducir

     // el valor de Max hasta que cumpla (Max >= 0) and (Max <= 1000)

  {...}

 end;

Procedure DefinirFil;                  // Ver si se decide pasar Fil por parametro

begin

     // Hacer un bucle Repeat...Until con una readln que permita introducir

     // el valor de Fil hasta que cumpla (Fil > 0) and (Fil <= CANTIDAD_ELEMENTOS

  {...}

end;

Procedure DefinirPos;                  // Ver si se decide pasar Pos por parametro}

begin

     // Hacer un bucle Repeat...Until con una readln que permita introducir

     // el valor de Pos hasta que cumpla (Pos > 0) and (Pos <= Fil)

     // and (Pos + Col) <= CANTIDAD_ELEMENTOS

  {...}

end;

Procedure Modulo1a;

var i: Integer;

begin

  DefinirMax(Max);

  DEfinirFil(Fil);

  for i := 1 to CANTIDAD_ELEMENTOS do  // Inicializar el vector

    A[i] := 0;

  if Max > 0 then  // Si Max es cero, A[i] debe estar en [0..0] para todo i entre 1 y Fil

  begin

    randomize;

    for i := 1 to Fil do

      A[i] := Random(Max + 1);

  end;

end;

Procedure Modulo1b;

var i: Integer;

begin

  if fil > 0 then                      // Comprobar que se ha definido Fil

  begin

  for i := 1 to CANTIDAD_ELEMENTOS do  // Inicializar el vector

    B[i] := 0;

  Col := 0;                            // Indice del vector B

     // Hacer un bucle Repeat...Until que pida al operador los valores del vector B. En cada ciclo

     // incrementar el indice Col := Col+ 1 e introducir el nuevo valor en B[Col]. El bucle debe

     // parar cuando el operador introduzca un valor incorrecto, por ejemplo -1 o cuando

     // Col >= CANTIDAD_ELEMENTOS. Lo del valor -1 solo se acepta para acabar el bucle si Col > 0

     // porque debe haber al menos 1 dato en el vector B. Esto ya es para matrícula de honor

  {...}

  end;

end;

Procedure Modulo1c;

var i: Integer;

begin

  if (Fil > 0) and (Col > 0) then

  begin

    DefinirPos;                        // Pos debe ser en este punto > 0

    for i := 1 to Col do

      A[i + Pos - 1] := B[i];

     // Supongo que en este punto hay que actualizar el valor de Fil al nuevo número de

     // datos en A, aunque el enunciado no lo dice expresamente

    Fil := Pos + Col - 1;

  end,

end;

Procedure Modulo1d;

var i: Integer;

begin

     // Supongo que el cero se considera par. La comprobación de si un valor es par o no la podemos

     // hacer por medio de (v mod 2) = 0 o por la funcion estandar Odd (Impar): if not Odd(v)...

  for i := 1 to Fil do

  if not Odd(A[i]) then

     A[i] := A[i] + 1;

end;

Procedure ModuloMostrarVector(A: TVector; Fil: Integer; Tercio: Integer);

var i, Desde, Hasta, Cuantos: Integer;

begin

  if (Fil >= 3) and (Tercio >= 1) and (Tercio <= 3) then

  begin

     // Aqui la complicación está en como tratar el caso de que Fil no sea multiplo de 3.

     // En teoría, si he interpretado bien el enunciado, Fil tiene que estar en [1..1000]

     // pero con menos de 3 elementos es difícil definir qué es 1/3. Asumo que Fil >= 3 y

     // si no, visualizar todo A[] entre 1 y Fil.

    Cuantos := Fil div 3

    Desde := (Tercio - 1) * Cuantos + 1;

    if Tercio < 3 then

      Hasta := Desde + Cuantos

    else

      Hasta := Fil;

  end else

  begin

    Desde := 1;

    Hasta := Fil;

  end;

end;

     // Y ahora visualizar en pantalla los valores de A[] entre Desde y Hasta.

    {...}

end;

Procedure Modulo3;

var i, j: Integer;

    C: TVector;

begin

     // Este tema no lo tengo muy claro. Supongo que consiste en mover a la izquierda los valores A[i+1]..A[Fil]

     // cuando A[i] = 0 pero no veo qué hay que hacer con los valores entre A[Fil+1] y A[CANTIDAD_ELEMENTOS].

     // En cualquier caso, voy a escribir una posible solucion

  for i := 1 do C[i] := A[i]           //Copiar A sobre C

  j := 0;

  for i := 1 to Fil do                 // Revisar todos los valores

    if C[i] <> 0 then                  // Este vale, copiarlo de vuelta sobre A

	begin

	  j := j + 1;

	  A[j] := C[i];	                   // j nos vale como indice y como contador

	end;

  Fil := j;                            // Y el nuevo número de datos es ...

end;

begin                                  // Program EjercicioDeVectores

                                       // Inicializar variables

                                       // Si Max es fijo, poner aqui su valor}

  Max := 0;

                                       // Y si no, pedir al operador que lo ponga

  DefinirMax(Max);

  Fil := 0;

  Pos := 0;

  for i := 1 to CANTIDAD_ELEMENTOS do

  begin

    A[i] := 0;

    B[i] := 0;

  end;

     // Hacer un bucle Repeat...Until con una readln que permita introducir

     // el valor de Opcion hasta que cumpla que Opcion = 4 (Terminar). Si

     //  (Opcion >= 1) and (Opcion <= 3) ejecutar el modulo correspondiente

   {...}

end.