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

[Лизонька]

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

[CodeExpert]

Первое вам уже дали,
2)

program z_2;
uses Crt;
type mas=array[1..100,1..100] of integer;
{процедура ввода}
procedure vvod(var m:mas;n:integer);
var i,j:integer; //строки и столбцы
begin
Writeln('Введите массив!');
for i:=1 to n do begin
 for j:=1 to n do begin
  Writeln('Введите элемент: ',i,'',j);
   Readln(m[i,j]);end;end;
end;
{процедура проверки}
procedure pro(var m:mas;n:integer);
var i,j:integer; //строки и столбцы 
    f:byte;
begin
{проверяем все строки}
for i:=1 to n do begin
 f:=0;
  for j:=1 to n do begin
   if not(m[i,j]=0) and (m[i,j] mod 3 = 0) then inc(f);
   end;
  if f=n then Writeln('Строка № ',i); end;
end;
{тело программы}
var m:mas;
    i,j:integer; //строки и столбцы
    n:integer;//размерность матрицы
begin
Writeln('Введите размерность массива!');
Readln(n);
{ввод массива}
vvod(m,n);
{проверка строк на делимость на 3}
pro(m,n);
Readln;
end.

3)

program z3;
uses Crt;
type x=array[1..100,1..100]of real;

{процедура поиска минимального элемента}
procedure min(var mas:x;m:byte;n:byte);
var i,j:byte; //строки и столбцы
    minel:real; //минимальный элемент
    mini,minj:byte; //индексы минимального элемента
begin
minel:=10000; //сравниваемое значение
{поиск минимального элемента}
for i:=1 to m do begin
 for j:=1 to n do begin 
  if mas[i,j]<minel then begin
   minel:=mas[i,j];
   mini:=i;minj:=j;end;end;end;
{вывод результата} 
Writeln('Минимальный элемент = ',minel);
Writeln('Его расположение:');
Writeln('строка - ',mini);
Writeln('столбец -',minj);
end;

{процедура поиска максимального элемента}
procedure max(var mas:x;m:byte;n:byte);
var i,j:byte;//строки и столбцы
    maxel:real;//минимальный элемент
    maxi,maxj:byte;//индексы минимального элемента
begin
maxel:=0;//сравниваемое значение
{поиск максимального элемента}
for i:=1 to m do begin
 for j:=1 to n do begin 
  if mas[i,j]>maxel then begin 
   maxel:=mas[i,j];
   maxi:=i;maxj:=j;end;end;end;
{вывод результата} 
Writeln('Максимальный элемент = ',maxel);
Writeln('Его расположение:');
Writeln('строка - ',maxi);
Writeln('столбец -',maxj);
end;

var mas:x; //оперируемый массив
    i,j:integer; //строки и столбцы
    m,n:byte;//ограничение
begin
{ввод размерности}
Writeln('Введите размерность массива!');
Writeln('кол-во строк, столбцов');
Readln(m,n);

{ввод матрицы}
Writeln('Введите массив!');
for i:=1 to m do begin
 for j:=1 to n do begin
  Writeln('Введите элемент: ',i,'',j);
   Readln(mas[i,j]);end;end;
 
{вывод матрицы}
Writeln('Вывод матрицы:');
for i:=1 to m do begin
 for j:=1 to n do begin
  Write(mas[i,j]:3);end;Writeln;end;
   
min(mas,m,n);
max(mas,m,n);
readln;
end.