Составить программу сравнения двух любых чисел элементов массива(Определить какой из них меньше) — Pascal(Паскаль)

program Project1;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
const
  N = 10;
var
  a: array [1..N] of integer;
  i,j,min: integer;
begin
  Randomize;
  WriteLn('Array: ');
  min := 1;
  for i := 1 to N do
  begin
    a[i] := Random(8) - 4;
    if a[i] < a[min] then
      min := i;
    Write(a[i]:2, ' ');
  end;
  WriteLn(#10, 'a[', min, '] = ', a[min], ' - min');
  ReadLn;
end.