Const
 n=3;
 m=3;
Var
 a:Array[1..m,1..n] Of Integer;
 i,j:Integer;
 max:Integer;
Begin
 For i:=1 To n Do
   For j:=1 To m Do
   Begin
     Write('Enter item in cell (',i,',',j,')');
     ReadLn(a[i,j])
   End;
 Max:=a[1,1];
 For i:=1 To m Do
   For j:=1 To n Do
     If a[i,j]>max Then
       max:=a[i,j];
 WriteLn('Maximum item = ',max);
 WriteLn('Positions:');
 For i:=1 To m Do
   For j:=1 To n Do
     If a[i,j]=max Then
       WriteLn(i,',',j)
End.