Вычислить минимальный элемент массива

program zad;
 
type
  TMass = Array of Real;
 
procedure FillArray(var mass : TMass);//заполнение массива
var
  i, n : Byte;
begin
  Write('Input n='); ReadLn(n);
  SetLength(mass, n);
  for i := 0 to n-1 do
    mass[i] := (Random(51) - 25) / (i + 1 + Random(3));
end;
 
procedure PrintArray(mass : TMass);//вывод массива на экран
var
  i : Byte;
begin
  WriteLn; Write('Array:');
  for i := 0 to Length(mass)-1 do
    Write(#9, mass[i]:5:3);
  WriteLn; WriteLn;
end;
 
function FindMin(mass : TMass) : Real;//нахождение минимума
var
  i : Byte;
  //Result : Real;
begin
  Result := mass[0];
  for i := 1 to Length(mass)-1 do
    if (Result > mass[i]) then
      Result := mass[i];
  FindMin := Result;
end;
 
function FindLastPos(mass : TMass) : Byte;//нахождение последнего положительного элемента
var
  i : Byte;
  //Result : Byte;
begin
  Result := Length(mass);
  i := Length(mass) - 1;
  while ((i >=0) and (Result = Length(mass))) do
  begin
    if (mass[i] > 0) then
      Result := i;
    Dec(i);
  end;
  FindLastPos := Result;
end;
 
function Summ(mass : TMass) : Real;//сумма элементов до последнего положительного
var
  i, k : Byte;
  //Result : Real;
begin
  k := FindLastPos(mass);
  if (k <> 0) then
  begin
    Result := 0;
    for i := 0 to FindLastPos(mass)-1 do
      Result := Result + mass[i];
  end;
  Summ := Result;
end;
 
procedure Magic(var mass : TMass);//перестановка
var
  i, j, k : Byte;
begin
  k := 0;
  for i := 0 to Length(mass)-1 do
    if (mass[i] = 0) then
    begin
      for j := i downto k+1 do
        mass[j] := mass[j-1];
      mass[k] := 0;
      Inc(k);
    end;
end;
 
var
  mass : TMass;
  
begin
  FillArray(mass);
  PrintArray(mass);
  WriteLn(FindMin(mass):5:3);
  WriteLn(Summ(mass):6:3);
  Magic(mass);
  PrintArray(mass);
end.