Pascal Questão de PASCAL (HELP-ME)

[Diego_drc]

Olá pessoal, peço a ajuda de todos com um problema enorme que estou.
Tenho um trabalho da faculdade, onde ja fiz quase todos os exercícios, porém o último ja cansei de quebrar a cabeça e não consigo de jeito nenhum... É para entregar semana que vem... Se alguem puder ajudar, fico muito agradecido!!!
segue o Problema:

3. O Departamento de transito do estado anotou dados de acidentes de trânsito no ultimo ano. Para cada vítima envolvido no acidente, tem-se as seguintes informações:
Nome;
Ano de nascimento;
Sexo (M - Masculino, F - Feminino)
Procedência ( 0 - Capital, 1 - Interior, 2 - Outro estado);

As informações de cada vítima devem ser lidas até ser digitada a palavra “FIM” na leitura do campo Nome. Faça um algoritmo que :
a. Calcule a porcentagem de motoristas com menos de 21 anos;
b. Calcule quantas mulheres são da capital;
c. Calcule quantos motoristas do interior do estado tem idade maior que 60 anos;
d. Verifique se existe alguma mulher com idade maior que 60 anos;

Pode-se usar qualquer uma das três estruturas: FOR, WHILE ou REPEAT.

[Lano]

Amigo, aqui está seu programa, só não consegui fazer a condição de parar pelo nome FIM.

Program Departamento_de_transito ;

	var	i:integer;
		ano,procedencia,qtClientes,anoatual,qtmulheres:real;
		calcularano,menoresd21,maioresd60,mulheresd60:real;
		sexo:char;
		nome:string;
		
		Procedure pedirqtClientes;
 		 begin
 			Writeln('Quantos clientes deseja cadastrar?');
 				readln(qtClientes);
 		 end;
 		 
 		 Procedure cadastrarClientes;
 		  begin
 			while( i < qtClientes) do
			 	begin
				 	Writeln('Escreva o nome do cliente:');
					 	readln(nome);
					Writeln('Digite o ano de nascimento do cliente:');
					Writeln('Exemplo: 1990 / 2000 ...');
					 	readln(ano);
					Writeln('Digite o sexo do cliente:');
					Writeln(' M ou F ');
					 	readln(sexo);
					Writeln('Escolha a procedência do cliente:');
					Writeln('0 - Capital / 1 - Interior / 2 - Outro Estado');
					 	readln(procedencia);
					 	
					 		i:= i + 1;
							anoatual := 2012-ano;
							if(anoatual < 21) then
							  begin
							  	menoresd21 := menoresd21 + 1;
							  end;
							if(sexo = 'F') or (sexo = 'f') and(procedencia = 0) then
							  begin
							    qtmulheres := qtmulheres + 1;
							  end;  
							if(anoatual > 60)  and (procedencia = 1) then
							  begin
							  	maioresd60 := maioresd60 + 1;
							  end;
							  
							if(anoatual < 60) and (sexo = 'F') or (sexo = 'f') then
							  begin
							  	mulheresd60 := mulheresd60  + 1;
							  end;
	 	
				end;
				
					
		  end;
			
 Begin
 i := 0;
 pedirqtClientes;
 cadastrarClientes;
 Writeln('O Percentual de Motoristas Menores de 21: ',menoresd21/100*100:0:0,'%');
 Writeln('A quantidade de Mulheres que moram na Capital: ',qtmulheres:0:0);
 Writeln('A quantidade de Motoristas maiores de 60 anos e que moram no Interio: ',maioresd60:0:0);
 Writeln('A quantidade de Mulheres maiores que 60 anos: ',mulheresd60:0:0);

 End.

PS: Estou mandando em anexo tbm!
Até mais!

[Lano]

Ai está o seu programa.
Até mais