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

[turbo2003]

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

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

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

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

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

[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.