не пойму как делать

uses crt;
const n=3;
      m=10;
var a:array[1..n+1,1..m+1] of word;
    i,j,imx:byte;
begin
clrscr;
writeln('Данные о доходах магазинов фирмы за 10 дней');
writeln('-----------------------------------------------------------------------------');
writeln('|       |                            Дата                           |       |');
writeln('|Магазин|-----------------------------------------------------------| Доход |');
writeln('|       |  1  |  2  |  3  |  4  |  5  |  6  |  7  |  8  |  9  |  10 |       |');
writeln('-----------------------------------------------------------------------------');
for i:=1 to n do
 begin
  a[i,m+1]:=0;
  for j:=1 to m do
   begin
    a[i,j]:=random(9000)+1000;
    a[i,m+1]:=a[i,m+1]+a[i,j];
   end;
 end;
for i:=1 to n do
 begin
  gotoXY(1,i+6);write('|',i:4);
  gotoXY(9,i+6);
  for j:=1 to m do
  write('|',a[i,j]:5);
  gotoXY(69,i+6);write('|',a[i,m+1]:6);
  gotoXY(77,i+6);write('|');
 end;
writeln;
writeln('-----------------------------------------------------------------------------');
gotoXY(1,whereY);write('| Итого:':6);
gotoXY(9,whereY);
for j:=1 to m do
 begin
  a[n+1,j]:=0;
  for i:=1 to n do
  a[n+1,j]:=a[n+1,j]+a[i,j];
  write('|',a[n+1,j]:5);
 end;
gotoXY(69,whereY);write('|');
gotoXY(77,whereY);writeln('|');
writeln('-----------------------------------------------------------------------------');
imx:=1;
for i:=1 to n do
if a[i,m+1]>a[imx,m+1] then imx:=i;
writeln('Максимальный доход за 10 дней получил магазин № ',imx);
imx:=1;
for j:=1 to m do
if a[n+1,j]>a[n+1,imx] then imx:=j;
writeln('Максимальный доход за 1 день получен ',imx,' числа');
readln
end.