Pascal/Turbo Pascal - Ayuda Problema pascal

Program EjercicioParcial;

uses crt;

Type reg=record;

tempmax:integer;

tempmin:integer;

end;

vector=array [1..31] of reg;

Var v:vector; i,toptemp,mintemp:integer; y,j,:real

Procedure Temperatura (var a:vector);

begin

For i:=1 to 31 do

Begin

Writeln ('Ingresar Dias Con Temperatura Maxima');

Readln (a[i].tempmax);

Writeln ('Ingresar Dias Con Temperatura Minima');

Readln (a[i].tempmin);

End;

Function PromedioTempmax (a:vector):real;

var tempmaxprom:integer;

begin

For i:=1 to 31 do

tempmaxprom:=promedio+a[i],tempmax;

promedio:=tempmaxprom/31;

End;

Function PromedioTempmin (a:vector):real;

var tempminprom:integer;

begin

For i:=1 to 31 then

tempminprom:=promedio+a[i],tempmin;

promedio:=tempminprom/31;

End;

begin

clrscr;

Temperatura (v);

j:=1;

l:=1000;

for i:=1 to 31 do

if v[i].max >=j then

toptemp:=i

if v[i].min < l then

mintemp:=i

end;

Writeln ('El promedio general de temeperaturas maximas es',PromedioTempmax:2:2);

Writeln ('El promedio general de temeperaturas maximas es',PromedioTempmin:2:2);

Writeln ('El dia de maxima temp fue: ',toptemp);

Writeln ('El dia de minima temp fue: ',mintemp);

readkey;

end.

{El código lo tienes funcionando pero tendrás que modificar cosas para que funcione bien}

Program EjercicioParcial;

uses crt;

Type reg=record

tempmax:integer;

tempmin:integer;

end;

vector=array [1..31] of reg;

Var v:vector; i,toptemp,mintemp:integer; y,j:real;

    l : integer;

Procedure Temperatura (var a:vector);

begin

For i:=1 to 31 do

Begin

Writeln ('Ingresar Dias Con Temperatura Maxima');

Readln (a[i].tempmax);

Writeln ('Ingresar Dias Con Temperatura Minima');

Readln (a[i].tempmin);

End;

end;

Function PromedioTempmax (a:vector):real;

var tempmaxprom:integer;

promedio : integer;

begin

For i:=1 to 31 do

tempmaxprom := promedio + a[i].tempmax;

promedio:=round(tempmaxprom/31);

End;

Function PromedioTempmin (a:vector):real;

var tempminprom:integer;

promedio : integer;

begin

For i:=1 to 31 do

tempminprom := promedio + a[i].tempmin;

promedio:=round(tempminprom/31);

End;

begin

clrscr;

Temperatura (v);

j:=1;

l:=1000;

for i:=1 to 31 do

if v[i].tempmax >=j then

toptemp:=i;

if v[i].tempmin < l then

mintemp:=i;

Writeln ('El promedio general de temeperaturas maximas es',PromedioTempmax(v));

Writeln ('El promedio general de temeperaturas maximas es',PromedioTempmin(v));

Writeln ('El dia de maxima temp fue: ',toptemp);

Writeln ('El dia de minima temp fue: ',mintemp);

readkey;

end.