Составить таблицу наличия ассортимента по всем киоскам в середине дня - Pascal ABC

Формулировка задачи:

Помогите пожалуйста, такая задача: Владелец 5 хлебобулочных киосков в разных районах города держит в них одинаковый ассортимент товаров из 20 наименований. Он завозит утром в каждый киоск по 100 единиц каждой продукции. Составить таблицу наличия ассортимента по всем киоскам в середине дня. В качестве первого индекса взять номер киоска, а вторым - номер товара по ассортименту. По таблице наличия ассортимента хлебобулочных изделий определить, в каком киоске хуже всего идет торговля.

Решение задачи: «Составить таблицу наличия ассортимента по всем киоскам в середине дня»

textual
                            Листинг программы 
                        

                            const m=5;
      n=20;
var a:array[1..m,1..n+1] of integer;
    i,j,s,mx,imx:integer;
begin
writeln(' ');
randomize;
writeln('Киоск №','Сумма остатка':n*3+11);
for i:=1 to m do
 begin
  write(i:4,'  ');
  s:=0;
  for j:=1 to n do
   begin
    a[i,j]:=random(100);
    write(a[i,j]:3);
    a[i,n+1]:=a[i,n+1]+a[i,j];
   end;
  writeln(a[i,n+1]:8);
 end;
imx:=1;
mx:=a[1,n+1];
for i:=2 to m do
if a[i,n+1]>mx then
 begin
  mx:=a[i,n+1];
  imx:=i;
 end;
write('Хуже всего идет торговля в киоске № ',imx);
end.
                        