Определите минимальное и максимальное значение, среднее арифметическое - Free Pascal

Формулировка задачи:

Добрый вечер(день). Очень нужна помощь с процедурой (её и функцию просто не понимаю ) Есть готовый код решенной задачи и нужно её переделать под процедуру. Зарание спасибо. Вот условие задачи: Напишите программу анализа значений температуры больного за сутки: определите минимальное и максимальное значение, среднее арифметическое. Замеры температуры производятся шесть раз в сутки и результаты вводятся с клавиатуры в массив T.

                    Листинг программы
                
 
                        
                          
                    
Uses crt;
Var
t: array [1..6] of real;
i:integer;
min,max,sred:real;
begin clrscr;
for i:=1 to 6 do
begin
write ('Введите температуру');
readln(t[i]);
end;
max:=t[1];
min:=t[1];
for i:=1 to 6 do
begin
if t[i]>max then
max:=t[i];
if t[i]<max then
min:=t[i];
sred:=sred+t[i];
end;
sred:=sred/6;
writeln(min:2:1, '  ',max:2:1, '  ', sred:2:1);
readkey;
end.

Решение задачи: «Определите минимальное и максимальное значение, среднее арифметическое»

Листинг программы

const n = 6;
var t: array [1..n] of real;
    i: integer;
    min, max, sred: real;
begin
  for i := 1 to n do
    begin
      write ('Enter temperature #', i, ': ');
      readln(t[i])
    end;
  max := t[1];
  min := t[1];
  for i := 2 to n do
    begin
      if t[i] > max
        then max := t[i]
        else if t[i] < min
          then min := t[i];
      sred := sred + t[i]
    end;
  sred := sred / n;
  write('min = ', min:2:1, ',  max = ',max:2:1, ',  average = ', sred:2:1);
  readln
end.

Объяснение кода листинга программы

Объявлены константа n равная 6 и переменная t типа массив из 6 элементов типа real.
Объявлены переменные i, min, max и sred типа integer и real соответственно.
Заполнение массива t значениями температуры происходит с помощью цикла for с переменной i от 1 до n.
Значение переменной max инициализируется значением первого элемента массива t.
Значение переменной min инициализируется значением первого элемента массива t.
Происходит проверка каждого элемента массива t с помощью цикла for с переменной i от 2 до n.
Если элемент массива t больше значения переменной max, то значение переменной max обновляется значением этого элемента массива.
Если элемент массива t меньше значения переменной min, то значение переменной min обновляется значением этого элемента массива.
К значению переменной sred прибавляется значение каждого элемента массива t.
Значение переменной sred делится на значение константы n, чтобы получить среднее арифметическое.
Выводится сообщение с минимальным, максимальным и средним значениями температуры.
Программа ожидает ввода с помощью функции readln.