Pascal/Turbo Pascal - Problema ejercicio - Ayuda

Hola que tal, sera que alguien me puede dar una ayuda con el siguiente ejercicio?
http://i.imgur.com/aWKgW.jpg



Yo lo hago asi:
http://www.mediafire.com/?br4pyrpbg64tc4e

Y cuando compilo,ejecuto... queda totalmente parado una vez que termino con la carga de datos de la primera persona(sea hombre/mujer). Solo ejecuta, cuando la edad es <> 999, es mujer y es de 'Corrientes'; pero solo una vez.

Si alguien me puede editar ese archivo y subirlo(o enviarmelo al correo que deje arriba) o decirme que lo que estoy haciendo mal, les voy a agradecer mucho

Lo siento, el link de mediafire no es el que he hecho(fue el anterior y me di cuenta que char, solo almacena un caracter)

es este:
http://www.mediafire.com/?adszc3ofw9w30s4

{Mira las correcciones realizadas suerte}

PROGRAM grup2_tplab;

USES crt;
VAR
ve_sexo: CHAR;
ve_ayn, ve_residencia, va_ayn_mayor: STRING;
ve_edad, va_cont, va_cont_mujer, va_edad_mayor: INTEGER;
va_porcentaje_mujer: REAL;


BEGIN
WRITELN ('Para finalizar la carga, coloque "999" en la edad');
WRITELN (' ');

va_cont := 0;
va_cont_mujer := 0;
va_edad_mayor := 1;
WHILE ve_edad <> 999 DO
BEGIN
WRITE('Ingrese edad : ');
READLN(ve_edad);
if ve_edad <> 999 then
begin
WRITE('Ingrese Apellido y Nombre : ');
READLN(ve_ayn);
WRITE('Ingrese sexo. F para mujer o M, para hombre (F/M) : ');
READLN(ve_sexo);
WRITE('Ingrese lugar de residencia. Chaco/Misiones/Corrientes : ');
READLN(ve_residencia);
end;
IF (ve_sexo = 'F') AND (ve_residencia = 'Corrientes') THEN
begin
va_cont_mujer := va_cont_mujer + 1;
end;
IF (ve_edad >= va_edad_mayor) THEN
va_edad_mayor := ve_edad;
va_ayn_mayor := ve_ayn;
va_cont := va_cont + 1;
clrscr;
end;
va_porcentaje_mujer := (va_cont * va_cont_mujer)/100;
WRITELN('El porcentaje de mujeres en la zona de Corrientes es de: ',
va_porcentaje_mujer:2:1, ' %');
WRITELN ('El nombre de la persona con mayor edad es: ', va_ayn_mayor);
READKEY;
CLRSCR;
END.

Muchas gracias ramon, es el 2do post que me respondes.... voy a montar la version que me has realizado. Te dejo la mia(ayer ya la hize andar)
http://www.mediafire.com/?1m1r4c72zgrtvsj


Muchas gracias de nuevo, si tienes tiempo, pasate por el otro post que hize que era "Dibujar un corazon" ... desde ya, muchas gracias otra vez xD