..=( Функции и минимальное значение массива

[amidatong]

Дана задача:
Создайте программу вычисления и вывода на экран минимального значения одномерного массива размерностью N,
использовать функцию создания одномерного массива и нахождения минимального значения элементов массива.
С функциями тему, я что-то не понял..
Вот код программы

  Program nmin;
      Function Fmin (I,min:integer):integer;
         Type M=array [1..10] of integer;
BEgin
min:=-10000;
   for I:=1 to 9 do begin
     Writeln ('введите элементы массива');
      Readln (M[I]);
  For I:= to 10 do begin 
     IF m[I]<min Then Fmin:=m[I];
  end;
  end;
     Fmin:=min;
       end;
  Begin
      Wrieln('минимальный элемент массива',min);
         end.

Выдает ошибку "Неправельное имя массива" УЖе не знаю что делать...

[GetMax]

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.

[p51x]

M - это тип, не зря же вы написали ключевое слово type
Вам нужна переменная этого типа, т.е. var a:M; например

[amidatong]

Я дурак=) спасибо всем большое=)