Определите день, когда температура была наибольшей - Pascal

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

Пусть в массиве содержатся результаты измерений температуры воздуха, которые проводились ежедневно в течение декабря месяца. Определите: 1. день, когда температура была наибольшей 2. Дан массив F( 16) действительных чисел. Найти сумму минимального и максимального элементов массива 3.В заданном тексте удалить часть текста, который заключен в скобки. 4. Дана матрица F(5,6) действительных чисел. Преобразовать ее путем деления всех элементов на максимальный элемент матрицы все задания делаются по отдельности)) Помогите!!! Заранее огромное спасибо))))

Решение задачи: «Определите день, когда температура была наибольшей»

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

                            uses crt;
const n=31;
var
a:array[1..n] of integer;
i,max,d:integer;
begin
 for i:=1 to n do begin 
  a[i]:=random(20)-10;
  write(a[i],';');
  end;
  writeln;
   d:=1;
   max:=a[i];
   for i:=1 to n do 
    if  a[i]>max then begin max:=a[i];
    if a[i]=max then d:=i;
    end;
    writeln('Максимальная температура = ',max);
    writeln('День когда была максимальная температура = ',d);
end.
                        