Pascal/Turbo Pascal - ayuda :( procedimientos y funciones

program Taller1;

uses crt;

var  opcion:integer;

      resp:string;

procedure menu(var opcion:integer);

begin

     writeln('1- ingresar dos numeros y validar que A par B impar');

     writeln('2- cociente y resto mediante restas suvesivas');

     writeln('3- mostrar si A es primo o no');

     writeln('4- intercambio de valores');

     writeln('5- salir');

     writeln('ingrese una opcion');

     readln(opcion);

end;

procedure paridad(A:integer; B:integer; VAR t:INTEGER);

begin

     ClrScr;

end;

begin

  menu (opcion);

   case opcion of

   1:begin

      write('Ingresa valor A :  ');

      readln(A);

      write('Ingresa valor B :  ');

      readln(B);

       if A = 0 then

           write ('El numero introducido no es par ni impar, es 0')

        else if ((A mod 2 = 0)) then

           write('El numero introducido es par')

        else

            write ('El numero introducido es impar')

   end;

end.

program mProcYFunc;

{

Realizar un programa en pascal que mediante un menú de opciones resuelva :

1. Ingresar dos valores enteros positivos A y B validando que:

	A sea par y que B sea impar.

2. Mostrar el cociente y el resto de la división entera mediante

	restas sucesivas entre A y B, siempre que sea posible.

3. Mostar si A es primo o no lo es.

4. Intercambiar los valores de A y B.

5. Salir

}

uses crt;

var

	opcion:	integer;

	resp:	string;

procedure menu(var opcion:integer);

begin

	ClrScr();

	writeln('1- ingresar dos numeros y validar que A par B impar');

	writeln('2- cociente y resto mediante restas suvesivas');

	writeln('3- mostrar si A es primo o no');

	writeln('4- intercambio de valores');

	writeln('5- salir');

	writeln('ingrese una opcion');

	readln(opcion);

end;

procedure paridad();

var

	A,B: integer;

begin

	ClrScr();

	write('Ingresa valor A : ');

	readln(A);

	write('Ingresa valor B : ');

	readln(B);

	if (A mod 2 = 0) and (B mod 2 <> 0) then

	begin

		writeln('Si cumple el criterio:');

		writeln('- A es par.');

		writeln('- B es impar.');

    end

    else

    begin

		writeln('No cumple el criterio:');

		writeln('- A debe ser par.');

		writeln('- B debe ser impar.');

    end;

    writeln('Presiona intro para volver al menu.');

    readln();

end;

begin

	repeat

		menu(opcion);

        case opcion of

			1:

				paridad();

		end;

	until opcion = 5;

end.