Задан одномерный массив а={ai} i=1,n. Найти минимум из чисел cos(ai)+sin(ai) — Pascal(Паскаль)

uses
  crt;
const
  max=5;
var
  a:array[1..max] of integer;
  i,min:integer;
begin
  clrscr;
  for i:=1 to max do
  begin
    a[i]:=random(8)-4;
    write(a[i],' ')
  end;
  writeln;
  min:=a[1];
  for i:=2 to max do
    if (cos(a[i])+sin(a[i]))<(cos(min)+sin(min)) then
      min:=a[i];
  writeln('Минимальный элемент: ',min);
  writeln('cos(',min,')+sin(',min,')=',cos(min)+sin(min))
end.