Паскаль. Массивы. Найти положение значений

[vacia78]

Вопрос по паскалю:
Дана целочисленная матрица размером m x n и целые числа b и c. Определить, на каком месте Расположены эти числа в матрице.


Помогите решить плз в Завтро 8 утра перездача назначена последняя.

[Sazary]

var i,j,bi,bj,ci,cj : integer;
........................
bi := -1;  //На случай, если элементы не будут найдены
ci := -1;
for i:=1 to m do
 for j:=1 to n do
  begin
  if mas[i,j] = b then
   begin
   bi := i;
   bj := j;
   end;
  if mas[i,j] = c then
   begin
   ci := i;
   cj := j;
   end;
  end;

Остальное сами.

[vacia78]

const
  m=4;
  n=5;
type
  TArr = array[1..m,1..n] of integer;
var
  a:TArr;
  b,c,i,j:integer;
function Search(what:integer; where:TArr; var i,j:integer):boolean;
 begin
  i:=1; j:=1;
  while (what<>where[i,j]) and (i<=m) and (j<=n) do
   begin
    inc(j);
    if j>n then
     begin
      j:=1; inc(i);
     end;
  end;
  Search:=what=where[i,j];
end;

begin
  for i:=1 to m do for j:=1 to n do a[i,j]:=random(10);
  for i:=1 to m do
   begin
    for j:=1 to n do write(a[i,j]:4);
    writeln;
  end;

  write('vvedite b i c  '); readln(b,c);

  if Search(b,a,i,j)
    then writeln('znachenie b v massive naideno ', i, ':',j)
    else writeln('znachenie b v mssive nenaideno ');
  if Search(c,a,i,j)
    then writeln('znachenie c v massive naiden ', i, ':',j)
    else writeln('znachenie c v mssive nenaideno ');
  writeln('Nagmite Enter');
  readln;
end.

Подсажите пожалуста, если в матрице будет несколько чисел одинаковых(например 3) можно ли както сделать чтоб выводилось несколько координат?


0 0 8 2 2
6 3 1 3 4
0 4 0 8 0
2 9 3 7 3

[Sazary]

Например, вот так:

const
  m=4;
  n=5;
type
  TArr = array[1..m,1..n] of integer;
var
  a:TArr;
  b,c,i,j:integer;
function Search(what:integer; where:TArr):boolean;
 var fl : boolean;
 i,j : integer;
 begin
 fl := false;
  for i:=1 to m do
   for j:=1 to n do
    begin
    if where[i,j] = what then
     begin
     writeln('znachenie ',what,' v massive naideno ', i, ':',j);
     fl := true;
     end;
    end;
  Search:=fl;
end;

begin
  for i:=1 to m do for j:=1 to n do a[i,j]:=random(10);
  for i:=1 to m do
   begin
    for j:=1 to n do write(a[i,j]:4);
    writeln;
  end;

  write('vvedite b i c  '); readln(b,c);

  if not Search(b,a)
    then writeln('znachenie b v mssive ne naideno ');
  if not Search(c,a)
    then writeln('znachenie c v mssive ne naideno ');
  writeln('Nagmite Enter');
  readln;
end.

[vacia78]

Спасибо Большое