JDJUNIOR

olá pessoal.Tenho um trabalho de 3 questões em pascal, não estou conseguindo fazer. Quem poder da um ajuda agradeço!!

1)Faça um programa em Pascal que descubra o menor número que dividido por 9 dá resto 8, dividido por 8 dá resto 7, dividido por 7 dá resto 6, dividido por 6 dá resto 5, dividido por 5 dá resto 4, dividido por 4 dá resto 3, dividido por 3 dá resto 2, dividido por 2 dá resto 1.

2)Faça um programa em Pascal para receber números de reais do usuário até receber o número 31.31, sinal que a entrada de dados terminou. Ao final o programa deverá imprimir:
a)A soma dos números
B)A média aritmética dos números
c)O menor número
d)O maior número
e)O menor número elevado ao maior número
f)O maior número elevado ao menor número

3)Faça um programa em Pascal que simule o funcionamento de uma urna eletrônica para uma eleição de três candidatos, de números 1,2 e 3. Escolha você os nomes dos candidatos O programa deverá pedir o número de candidato ao eleitor até receber o candidato 9837, sinal que a eleição terminou. Os votos no candidato 4 deverão ser considerados votos em branco e votos em candidatos de número menor que 1 e maior que 4 deverão ser considerados votos nulos. Ao final o programa deverá imprimir o resultado da eleição como o número, o nome e o percentual de votos válidos que cada candidato obteve.

program semnome;


var
aux,x:integer;
num,soma,media,menor,maior,expo1,expo2:real;
begin
aux:=0;
maior:=0;
menor:=9999999;
repeat
writeln('digite um valor');
readln(num);
if (num <> 31.31) then begin
aux:=aux+1;
soma:=soma+num;
if num > maior then begin
maior:=num;
end;
if num < menor then begin
menor:=num;
end;
end;
until num=31.31;
media:=soma/aux;
writeln('media: ',media);
writeln('soma: ',soma);
writeln('menor numero: ',menor);
writeln('maior numero: ',maior);
expo1:=menor;
expo2:=maior;
for x := 1 to maior do
begin
menor:=menor*expo2;
end;
for x := 1 to menor do begin
maior:= maior*expo1;
end;
writeln('menor numero elevado ao maior: ',menor);
writeln('maior numero elevado ao menor: ',maior);
end.