Дан массив из 16 целых чисел, случайно заданных в диапазоне от 0 до 70. Получить MIN

program Project1;
 
uses
  Crt;
 
const
  n = 15;
type
  mass = array[0..n] of Byte;
 
procedure Output_mass(temp_mass : mass);
var
  i : Byte;
begin
  Writeln('Output array:');
  for i := 0 to n do
    Writeln('mass[', i+1, ']= ', temp_mass[i]);
end;
 
function input_mass() : mass;
var
  i : Byte;
  temp_mass : mass;
begin
  for i := 0 to n do
    temp_mass[i] := Random(70);
  Output_mass(temp_mass);
  input_mass := temp_mass;
end;
 
function find_min(a, b : Byte; temp_mass : mass): Byte;
var
  i, min : Byte;
begin
  min := 100;
  for i := a to b do
    if (min > temp_mass[i]) then
      min := temp_mass[i];
  find_min := min;
end;
 
procedure main();
var
  i, min : Byte;
  temp_mass : mass;
 
begin
  temp_mass := input_mass();
  for i := 0 to 7 do
  begin
    min := find_min(i, n-i, temp_mass);
    Writeln('min(', i+1, '-', n-i+1, ')= ', min);
  end;
end;
 
begin
  Randomize;
  ClrScr;
  main();
  Readln;
end.