Определить индекс и знаки наибольшего элемента в массиве

uses crt;
var a:array[1..6,1..8] of byte;
i,j,m,n,max,stolb,str:byte;
 
begin
     Randomize;
     Write('Ââåäèòå êîëè÷åñòâî ñòðîê: '); Readln(n);
     Write('Ââåäèòå êîëè÷åñòâî ñòîëáöîâ: '); Readln(m);
     clrscr;
     
     Writeln('Çàïîëíÿåì ìàññèâ ñëó÷àéíûìè ÷èñëàìè.');
     for i:=1 to n do
         for j:=1 to m do
            begin a[i,j]:=Random(50); Writeln('A[',i,',',j,'] = ',a[i,j]);  end;
            
     Sleep(1250);
     clrscr;
     
     Writeln('Èñõîäíûé ìàññèâ:');
     for i:=1 to n do   begin
         for j:=1 to m do
             write(a[i,j]:3);
         writeln;   end;
         
     max:=0;
     for i:=1 to n do begin
         for j:=1 to m do
             if max<a[i,j] then begin max:=a[i,j]; str:=i; stolb:=j; end; end;
             
     Writeln('**************************');
     Writeln('Ìàêñèìàëüíûé ýëåìåíò = ',max,'; Ñòðîêà = ',str,'; Ñòîëáåö = ',stolb,'.');
     Writeln('**************************');
     Writeln('Ïîëó÷åííûé ìàññèâ:');
     
     for i:=1 to n do
         for j:=1 to m do
             if (i=str) or (j=stolb) then a[i,j]:=0;
             
     for i:=1 to n do   begin
         for j:=1 to m do
             write(a[i,j]:3);
         writeln;   end;
end.