Определить, какой магазин и какого числа получил максимальный доход за день

uses crt;
const m=3; d=10;
      line='----------------------------------------------------------------------------';
var a: array [1..m,1..d] of integer;
    i,j,dmax,mmax: integer;
begin
dmax:=1; mmax:=1;
writeln('Внесите данные о доходах магазинов:');
for i:=1 to m do
    for j:=1 to d do
        begin
        write('Доход ',i,' магазина в ',j,' день ');
        readln(a[i,j]);
        end;
writeln('                                   Дата');
write('Магазин');
for j:=1 to d do
    begin
    if j=1 then write(j:5) else write(j:7);
    end;
writeln;
writeln(line);
for i:=1 to m do
    begin
    write(i:4,'  ');
    for j:=1 to d do
        begin
        write(a[i,j]:7);
        if a[i,j]>a[mmax,dmax] then
           begin
           mmax:=i;
           dmax:=j;
           end;
        end;
    writeln;
    end;
writeln(line);
writeln('Макс. доход, =',a[mmax,dmax],' получил магазин № ',mmax,' ',dmax,' числа');
end.