товары и магазины

[Alexar Makken]

Задание: Известны цены 20-ти товаров в 10-ти магазинах. Для каждого товара выдать название магазина, в котором он имеет наименьшую цену.
Вот наработки:

const
     n=3;
     m=5;
var
     i,j,k,g,imin,jmin,min: integer;
     a: array[1..n,1..m] of integer;
     ar_mag: array[1..n] of String[15];
     ar_tov: array[1..m] of String[15];
begin
     //Ввод с клавиатуры
 
     for i:=1 to n do
     for j:=1 to m do
     for k:=1 to n do
     readln(a[i,j]);
     end;
     //Вывод
     for i:=1 to n do
     begin
          for j:=1 to m do
          write(a[i,j],'  ');
          writeln
     end;
     for i:=1 to n do begin
     min:=a[i,1];
     for j:=1 to m do
     if a[i,j]<min then
     begin
     min:=a[i,j];
     imin:=i; jmin:=j;
     end;
     writeln('min=',min);
     writeln('строка=',imin);
     writeln('столбец=',jmin); end;
 
end.