Pascal/Turbo Pascal - todo codigo pascal

Hola amigos programadores tengo pequeños problemas al estar aprendiendo pascal por si solo, pero ya le he entendido bastante, pero este problema me está causado dolor de cabeza ya llevo más de dos semana buscándole solución pero no la encuentro espero que me ayuden y me escriben alguna explicación y muchas gracias.


En una lista se tiene el aporte hecho por N estudiante a las personas discapacitadas. Calcular el aporte realizado por los estudiantes, cuántos estudiantes han aportado más de $10.00 y cuál fue el mayor aporte realizado.
Hasta el momento tengo esto:

program lista_disca_estudiantes;
uses crt;
var n,total,aporte,maydiez,x,mayor:integer;
begin
clrscr;
aporte:=0;
total:=0;
maydiez:=0;
mayor:=0;
x:=1;
writeln('para calcular la MTT');
write('ingrece numero de estudiantes:');
readln(n);
for n:=1 to n do
begin
writeln;
write('ingrece aporte de estudiante ',n,':');
readln(aporte);
mayor:=x+aporte-x;
aporte:=aporte;
total:=aporte+total;
if (aporte>10) then
inc(maydiez);
end;
writeln;
writeln('aporte total de ',n,' estudiantes es:',total);
writeln;
writeln('aportes mayores de diez:',maydiez);
if (aporte<mayor) then
begin
writeln;
writeln('el mayor de ',n,' numeros es:',mayor);
end
else if(mayor<aporte) then
writeln;
writeln;
writeln('el mayor de ',n,' numeros es:',aporte);
readln;
end.

2_Hacer un programa que permita determinar la cantidad de días en los que las precipitaciones caídas estuvieron por encima de 44 milímetros. Conociendo que la cantidad de precipitaciones caídas por días se encuentran expresadas en un dato cuyo final está dado por -1.

Fijate que en el for cometiste un error, la variable de control N no puede ser la misma que tope de ciclo. Vos pusiste:

for n:=1 to n do

y sería:

For i:=1 to N do

o si queres usar algun contador podes poner:

For Cont:= 1 to N do

Después lo intento hacer y te digo si hay otro error, saludos