Просто вставить процедуру или функцию.

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

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

Решила задачу, но нужно вставить процедуру или функцию. Сама плохо поняла эту тему. Заранее благодарю.

Program Dni;
uses crt;
Var
M:Array [1..5] of integer;
i,min,n_min,max,n_max,a,b:integer;
 Procedure Razn(a,b:integer;)
          begin
           a:=max-min; b:=n_max-n_min;
           b:=abs(b);
       writeln('Разница между температурами дней: ',a);
     writeln('Промежуток между ними: ',b);
begin
 Writeln('Введите температуры каждого дня: ');
 for i:=1 to 5 do
  readln (M[i]);
     begin
      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;
       begin
        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;
   readln;
   end;
   end;
   end;
end.

[Serebro]

Немного исправлено.

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

Procedure Razn(a, min, max:integer;)
begin
     ................................................
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;


........................................................

end.

Нужно только определить функцию.