Pascal/Turbo Pascal - resolver un programa en pascal

Me mandaron a realizar un programa para la facultad y me dieron este enunciado, necesitaria que alguien lo revisara para ver si esta bien y que se fijara si me falta algo agregar ya que asi me van a tomar el examen.

Realizar un programa en lenguaje pascal que permita a un operador registrar diariamente en una estacion meteorologica los siguientes datos: numero del dia, numero del mes,año, Temperatura Maxima, Temperatura Minima,Lluvias: 1:Si o 2:No, Precipitaciones: se tiene el registro de cuanta lluvia cayo en un dia.

Si precipitaciones es menor o igual a cero significa que no llovio.

Informar por pantalla cada uno con su titulo indicativo.

1)cuantos dias hubo sin lluvia?
2)cuantos dias llovio menos de 50mm?
3)cuantos dias llovio 50 mm o mas?
4)cual es el porcentaje de dias sin lluvias?
5)Cantidad total de precipitaciones registradas?
6)temperaturas promedios diarias

Program lluvias;

Uses
Crt;
Var
Numdia,Nummes,Año : = integer;
TempMax,TempMin: = real;
Lluvias,LluviaN: =
Cantlluvia: = real;
Cantdias: = integer;
Porcentaje : = real;
Acumdias: = integer;
Cantot: = real;
PromTemp := real;
Begin
ClrScr;
Write(´ Ingreso los datos’)
Repeat
Writeln(´cantlluvia´);
Cantlluvia: = cantlluvia + 1;
Begin
If cantlluvia=0 then cantdias: = cantdias + 1
Porcentaje:= acumdias * cantdias / 100
Else Write (¨No contar los dias¨);

Begin
If cantlluvia< 50 then cantdias: = cantdias + 1
Else Write (´No contar los dias’);
Begin
If cantlluvia>=50 then cantdias:= cantdias + 1
Else Write (´No contar los dias¨);
End;
End;
End;
Cantot: = cantot + 1
Prom: = Tempmax + TempMin / 2
Until cantlluvia < = 0
End.

muchas gracias

pd. hay una parte del enunciado que dice LLuvias 1: Si o 2: No nose como ponerla en el programa.

Laura

HOLA:
Para mi esta bien, pero te recomiendo que consultes al servicio meteorológico en donde podes obtener mas información

ESTA BIEN HECHO ASI? CUALES SON LOS ERRORES?
NOSE COMO PONER EL PORCENTAJE NI CUANDO DICE LLUVIA 1: SI O LLUVIA 2: NO

Program lluvias;
LLUVIAS (c:\DATOS.TXT)

Uses
Crt;
Var
dia,mes,año : = integer;
TempMax,TempMin: = real;
Sinllu,men50, mas50: =integer;
Precipitaciones : = real;
Porcentaje : = real;
Acumdias: = integer;
totallu: = real;
PromTemp := real;
Lluvia: = string;
Datos: = text;
Begin
Write(‘Ingrese el nombre del archivo: ‘);
Readln( lluvias);
ASSIGN(DATOS,LLUVIA); {Asignación a la variable DATOS del archivo en disco “lluvias”}
{Lo llamare precipitaciones.pas}
RESET(DATOS); {Apertura del archivo para leer datos desde el}

{Inicializacion de variables}
sinllu. = 0
men50: = 0
mas50: = 0
totallu:=0
ClrScr;
Repeat

Begin
If (precipitaciones =0 ) then sinllu: = sinllu + 1
Porcentaje:= acumdias * cantdias / 100
Else Write (¨No contar los dias¨);

Begin
If (precipitaciones > 0) and (precipitaciones < 50) then men50: = men50 + 1
Else Write (´No contar los dias’);
Begin
If (precipitaciones >=50) then mas50:= mas50 + 1
Else Write (´No contar los dias¨);
End;
End;

End;
Until precipitaciones < = 0
CLOSE (DATOS);

totllu: = totllu + 1
Prom: = (Tempmax + TempMin ) / 2

APPEND (DATOS) ;
WRITELN(DATOS) ;
WRITELN(DATOS, PROM) ;
WRITELN(DATOS,TOTLLU) ;
CLOSE(DATOS) ;

writeln('CANTIDAD DE DIAS SIN LLUVIA: ',SINLLU);
writeln('CANTIDAD DE DIAS QUE LLOVIO MENOS DE
50mm: ',men50);
writeln('CANTIDAD DE DIAS QUE LLOVIA IGUAL O MAS DE 50
mm ',MAS50);
writeln('PRECIPITACIONES ACUMULADAS ',TOTALLU);
writeln('EL PORCENTAJE DE DIAS SIN LLUVIAS
ES ',);
writeln('PROMEDIO DE TEMPERATURAS');
readln,

End.

Ahora se propone al alumno que realice un procedimiento de nombre busca_minimo que busque dentro de una colección de cuadros el cuadro más barato, e imprima por pantalla el número de ese cuadro y su precio. Este procedimiento, como los previos, recibe la tabla de precios y el número de cuadros.

El resultado debe ser similar a esto:

Introduzca los precios
Cuadro 1: 100
Cuadro 2: 200
Cuadro 3: 300
Cuadro 4: 85
> Precio cuadro 1: 100.00
> Precio cuadro 2: 200.00
> Precio cuadro 3: 300.00
> Precio cuadro 4: 85.00
> Valor colección: 685.00
> El precio del cuadro 4 es el mínimo y cuesta 85.00