zro

To fazendo um exercício do curso de T.I que consistem em calcular o IMC De um determinado numero de pessoas e que no final ele me diga o valor do menor e maior IMC desse grupo de pessoas. Program imc_doProf ; var peso, alt, imc : real; cont : string; Begin textcolor(white); writeln(''); writeln('======================================='); writeln(' CALCULO DE IMC '); writeln('======================================='); writeln(''); repeat peso := 0; alt := 0; cont := 'Y'; write('INFORME SUA ALTURA: '); readln(alt); write('INFORME SEU PESO: '); readln(peso); imc := peso / sqr(alt); writeln('SEU IMC E: ', imc:05:02); write('DESEJA CALCULAR NOVAMENTE? (Y/N): '); read(cont); until(upcase(cont) = 'N'); End. Esse foi o código que criei, só não estou conseguindo mostrar o valor do maior e menor IMC. Alguém pode me ajudar a desenvolver isso?