Создайте программу вычисления и вывода на экран минимального значения одномерного массива размерностью N, использовать функцию создания одномерного массива и нахождения минимального значения элементов массива — Pascal(Паскаль)

Type Mas=array [1..10] of integer;
Var
  M:Mas;
  i:Byte;
Function Fmin:integer;
Var
  i:Byte;
  Min:Integer;
Begin
  min:=32767;
  For I:=1 to 10 do
  begin
    IF m[I]<min Then min:=m[I];
  end;
  Fmin:=min;
end;
Begin
  for I:=1 to 10 do
  begin
    Writeln ('введите элементы массива');
    Readln (M[I]);
  End;
  Writeln('минимальный элемент массива',Fmin);
  Readln
End.