Проверьте задачу

[Лесная Эльфийка]

Известны температуры каждого дня мая. Найти разницу между температурой самого теплого и самого холодного дня мая. Сколько дней прошло между самым теплым и самым холодным днем.

Program Dni;
uses crt;
Var
M:Array [1..5] of integer;
i,min,n_min,max,n_max,a,b:integer;

function Razn(a, b, min, max:integer):integer;
begin
     a:=max-min; b:=n_max-n_min;
           b:=abs(b);
       writeln('Разница между температурами дней: ',a);
     writeln('Промежуток между ними: ',b);
end;


begin
  Writeln('Введите температуры каждого дня: ');
  for i:=1 to 5 do
                     readln (M[i]);

  max:=m[1]; n_max:=1;
  for i:=2 to 5 do
      if m[i]>max then
      begin
        max:=m[i]; n_max:=i;
      end;

  min:=m[1]; n_min:=1;
  for i:=2 to 5 do
      if m[i]<min then
      begin
        min:=m[i]; n_min:=i;
      end;

Razn(a, b, min, max);

end.

[alex_fcsm]

Program Dni;
Var
M:Array [1..31] of integer;
i,n_min,n_max:integer;

function Razn(a, b:integer):integer;
begin
      writeln('Разница между температурами дней: ',m[b]-m[a]);
     writeln('Промежуток между ними: ',b-a);
end;


begin
  Writeln('Введите температуры каждого дня: ');
  for i:=1 to 31 do
                     readln (M[i]);

  n_min:=1; n_max:=1;
  for i:=2 to 31 do
   begin
      if m[i]>m[n_max] then n_max:=i
         else if m[i]<m[n_min] then n_min:=i;
   end;
 

Razn(n_min, n_max);

end.

Зачем таскать максимумы и минимумы, если к ним можно обратиться через индексы?