maicom-lc

oi pessol, sou novo aki no forum e preciso de ajuda. tenho um programinha em pascal que não sei onde está o problema. se alguém puder me ajudar eu agradeço. eis ai o codigo. program departamento; uses crt; const data_atual = 2010; var ano,sexo,procedencia,menore_vinte_um, outro_est,mulheres,homens,interior,mulheres_cap,moto_maior_60,capital, mulheres_maior_60,flag,total : integer; begin sexo := 0; mulheres := 0; homens := 0; mulheres_cap := 0; interior := 0; outro_est := 0; procedencia := 0; mulheres_maior_60 := 0; moto_maior_60 := 0; menore_vinte_um := 0; flag := 0; total := 0; capital := 0; clrscr(); while (flag <> -1) do begin write('ano de nascimento : '); read(ano); inc(total); write('sexo (0 - masculino, 1 - feminino) : '); read(sexo); if sexo = 0 then inc(mulheres); write('procedencia (0 - capital, 1 - interior, 2 - outro estado) : '); read(procedencia); if procedencia = 0 then inc(capital); if procedencia = 1 then inc(interior) else inc(outro_est); if (sexo = 0) and (procedencia = 0) then inc(mulheres_cap); if (interior = 1) and (ano - data_atual > 60) then inc(moto_maior_60); if (ano - data_atual) < 21 then inc(menore_vinte_um); if (sexo = 0) and (ano - data_atual > 60) then inc(mulheres_maior_60); writeln('deseja continuar : '); read(flag); end; clrscr(); writeln('motoristas menores que 21 = ',menore_vinte_um/total*100:6:2,'%'); writeln('mulheres da capital = ',mulheres_cap); writeln('motoristas mais velhos que sessenta do interiro = ',moto_maior_60); writeln('mulheres mais velhas que sessenta = ',mulheres_maior_60); readkey(); end. não qero continuar as video aulas enquanto não saber o q está errado nesse codigo, na verdade é um codigo bem simples, talvez o problema seja bem obvio, mas não estou conseguindo encontra-lo.