Известно количество сделанных столов тремя фабриками за два квартала. Определить максимальное количество выпущенных столов. В качестве результата вывести месяц, в котором это было, и название фабрики — Pascal(Паскаль)

uses crt;
const n=3;
      m=6;
var a:array[1..n+1,1..m] of integer;
    i,j,jmx:byte;
    mx,sm:integer;
begin
clrscr;
writeln('Введите количество столов, выпущенных каждой фабрикой за каждый из 6 месяцев:');
for i:=1 to n do
 begin
  writeln('Фабрика ',i);
  for j:=1 to m do
   begin
    write(' месяц ',j,'=');
    readln(a[i,j]);
   end;
 end;
clrscr;
for j:=1 to m do
 begin
  sm:=0;
  for i:=1 to n do
  sm:=sm+a[i,j];
  a[n+1,j]:=sm;
 end;
writeln('Выпуск по месяцам:');
for i:=1 to n do
 begin
  write('Фабрика    ',i);
  for j:=1 to m do
  write(a[i,j]:5);
  writeln;
 end;
write('Итого за мес.');
mx:=a[n+1,1];jmx:=1;
for j:=1 to m do
 begin
  write(a[n+1,j]:5);
  if a[n+1,j]>mx then
   begin
    mx:=a[n+1,j];
    jmx:=j;
   end;
 end;
writeln;
writeln;
writeln('Максимальное количество=',mx,' в месяце ',jmx);
readln
end.