Массивы - поиск минимума, + поиск минимума кратного 5 в матрице Опции

[turbo2003]

Помогите пожайлуста решить задачку никак не могу вьехать.

Найти минимальный элемент и его номер массива Р(12), значения элементов которого лежат в интервале от -10 до 10.

и если можно вторую

Найти количество элементов, меньших минимального кратного 5 матрицы. Матрица произвольная.

Заренее благодарен.

[Altair]

var
 p:array[1..12] of integer;
 i,max,n:integer;
begin
 randomize;
 for i:=1 to 12 do p[i]:=10-integer(random(20)+1);
 for i:=1 to 12 do write(p[i],' '); writeln;
 max:=p[1]; n:=1;
 for I:=1 to 12 do if p[i]>max then begin max:=p[i]; n:=i; end;
 writeln('max elem= ',max,' number= ',n);
 readln;
end.

[Altair]

{Найти количество элементов, меньших минимального кратного 5 матрицы.
Матрица произвольная.}

var
 m:array[1..10,1..10] of integer;
 i,j,min,s:integer;
begin
 randomize;    S:=0;
 for i:=1 to 10 do for j:=1 to 10 do m[i,j]:=random(20);
 for i:=1 to 10 do begin
  for j:=1 to 10 do write(m[i,j]:3);
  writeln
 end;
 for i:=1 to 10 do for j:=1 to 10 do if (m[i,j] mod 5 =0) and (m[i,j]<>0) then min:=m[i,j];
 for i:=1 to 10 do for j:=1 to 10 do begin
  if (m[i,j] mod 5=0) and (m[i,j]<=min) and (m[i,j]<>0) then min:=m[i,j];
 end;
 for I:=1 to 10 do for j:=1 to 10 do
  if m[i,j]<min then inc(s);
 writeln(s);
 readln;
end.