Подпрограммы: найти индексы заданных элементов массива

Program S9;
Const
    M = 10;
    N = 10;
Var
    A:Array[0..M,0..N] Of Integer;
    i,j,Cell:Integer;
    Yes:Boolean;
Begin
Randomize;
Yes:=True;
For i:=0 To M Do
    Begin
    For j:=0 To N Do
        Begin
            A[i,j]:=Random(10)+10;
            Write(A[i,j],' ');
        End;
    WriteLn;
    End;
WriteLn;
WriteLn('Please enter value: ');
ReadLn(Cell);
For i:=0 To M Do
    For j:=0 To N Do
        If A[i,j] = Cell Then
            Begin
                WriteLn('i = ',i,' j = ',j);
                Yes:=False;
            End;
    If Yes Then WriteLn('Not such elements.');
    ReadLn;
End.

uses crt;
Const
M = 10;
N = 10;
type ar = Array[0..M,0..N] Of Integer;
Var
A:ar;
i,j:Integer;
 
procedure P (n,m:integer;a:ar);
var Yes:boolean;
Cell:Integer;
begin
Yes:=True;
WriteLn;
WriteLn('Please enter value: ');
ReadLn(Cell);
For i:=0 To M Do
For j:=0 To N Do
If A[i,j] = Cell Then
Begin
WriteLn('i = ',i,' j = ',j);
Yes:=False;
End;
If Yes Then WriteLn('Not such elements.');
ReadLn;
end;
 
Begin
For i:=0 To M Do
Begin
For j:=0 To N Do
Begin
A[i,j]:=Random(10)+10;
Write(A[i,j],' ');
End;
WriteLn;
End;
P(n,m,A);
End.