Программирование с использованием процедур и функций

[Лизонька]

Программирование с использованием процедур и функций...на Паскале:
1)Подготовить программу,в которой ввод и вывод элементов одномерного вещественного массива размерностью n, выполняется с помощью процедур.
2)Дана целочисленная матрица NxN. Используя процедуры, составить программу, в которой выполняется ввод элементов матрицы, и определяются номера её строк, все элементы которых делятся на 3 без остатка.
3)Подготовить программу, в которой с помощью процедур находится наибольший и наименьший элемент вещественного числового массива размерностью NxM, а также индексы элементов.
Буду оч признательна, если кто_нибудь поможет

[Denager]

1)Подготовить программу,в которой ввод и вывод элементов одномерного вещественного массива размерностью n, выполняется с помощью процедур.

Такой вариант подойдет? Тут только 1 процедура, и 1 функция) Так более изящно получается
На остальные задачи, извиняйте, батарея у бука села, сижу в кафе

const
  N = 5;
type
  MyType = array[0..N] of real;

Function input():MyType;
var
  i:integer;
  a:MyType;
begin
for i:=0 to N do
  begin
    Write('Element [',i,']->');
    readln(a[i]);
  end;
result:=a;
writeln('vvod okonchen!');
end;

procedure output(A:MyType);
var
  i:integer;
begin
  writeln('Vyvod massiva');
    for i:=0 to N do
      begin
        Writeln('element [',i,']=',a[i]:5:3);
      end;
end;

begin
output(input());
readln;
end.

[Denager]

Здесь только успею напистаь процедуру вычисления, ввод массива сами оформите? Ну и индексы не сложно будет, если поразбираетесб немного

3)Подготовить программу, в которой с помощью процедур находится наибольший и наименьший элемент вещественного числового массива размерностью NxM, а также индексы элементов.

const
  N = 5; M = 5;
type
  MyType = array[0..N, 0..M] of real;

Procedure Max(A:MyType; max_var:real);
var
  i,j:integer;
begin
  for i:=0 to N do
    for j:=1 to M do
      if a[i,j]>max_var then
        max_var:=a[i,j];
writeln('max = ',max_var:5:3);
end;

Procedure Min(A:MyType; min_var:real);
var
  i,j:integer;
begin
  for i:=0 to N do
    for j:=1 to M do
      if a[i,j]>min_var then
        min_var:=a[i,j];
writeln('min = ',min_var:5:3);
end;

Вызов в программе

max(A,a[0,0]);
max(A,a[0,0])

Соответсвенно перед этим, заполнить массивы набором чисел