Транспонировать матрицу и умножить ее на начальную.

[Tucan]

Дана матрица с другой размерностью,но,в целях экономии времени пока использую 2х3.Не могу разобраться с умножением.В ответе получаются 2 столбца в первом 0 0 ,во втором 14 14.Может взглянете,подскажете,что не так?)
вот сам код:

program zadacha;

var
  a: array[1..2, 1..3] of integer;
  b: array[1..3, 1..2] of integer;
  c: array[1..2, 1..3] of integer;
  i, j, k: integer;

begin
  writeln('Введите матрицу');
  for i := 1 to 2 do 
    for j := 1 to 3 do
    
    begin
      write( 'a[', i, ',', j, ']=');
      readln(a[i, j]); 
    end;
  writeln('---- Введенная матрица: -----');
  for i := 1 to 2 do 
  begin
    for j := 1 to 3 do
      
      write('    ', a[i, j]:2, '  ');
    writeln;
  end;
  
  for i := 1 to 3 do 
  begin
    for j := 1 to 2 do
      b[i, j] := a[j, i];
  end;
  writeln;
  writeln('---- Транспонированная матрица: -----');
  for i := 1 to 3 do
  begin
    for j := 1 to 2 do
      write('      ', b[i, j]:3, '  ');
    writeln;
  end;
  writeln;
  
  for i := 1 to 2 do 
  begin
    for j := 1 to  2 do
      c[i, j] := 0;
    for k := 1 to 3 do
      c[i, j] := c[i, j] + A[i, k] * B[k, j];
  end;
  writeln('---- Результат умножения: -----');
  for i := 1 to 2 do
  begin
    for j := 1 to 2 do
      write(c[i, j]:4);
    writeln;
  end;
end.

Вот,кстати скрин результата: https://pp.vk.me/c630827/v630827021/...azioU9BtdY.jpg

А вот так должно получиться при умножении:https://pp.vk.me/c630827/v630827021/...UsURJ4oRgc.jpg

[BDA]

for i := 1 to 2 do 
  for j := 1 to  2 do
  begin
    c[i, j] := 0;
    for k := 1 to 3 do
      c[i, j] := c[i, j] + A[i, k] * B[k, j];
  end;

[Tucan]

Блин,точно.Операторные скобки не там открыл.
Огромное спасибо!

[Tucan]

Если не сложно,посмотрите уже почти готовый код с другой размерностью.Опять проблемы с умножением,но на этот раз программа не хочет умножать,а лишь выдает ошибку вроде:"Индекс находится вне границ массива".Уже все перепробывал,и кстати,в одном случае программа выдавала матрицу,но с размером 4х4 .
P.S.забыл сказать.В матрице 5 строк и 4 столбца

program zadacha;

var
  a: array[1..5, 1..4] of integer;
  b: array[1..4, 1..5] of integer;
  c: array[1..5, 1..4] of integer;
  i, j, k: integer;

begin
  writeln('Введите матрицу');
  for i := 1 to 5 do 
    for j := 1 to 4 do
    
    begin
      write( 'a[', i, ',', j, ']=');
      readln(a[i, j]); 
    end;
  writeln('---- Введенная матрица: -----');
  for i := 1 to 5 do 
  begin
    for j := 1 to 4 do
      
      write('    ', a[i, j]:2, '  ');
    writeln;
  end;
  
  for i := 1 to 4 do 
    for j := 1 to 5 do
       begin
       b[i, j] := a[j, i];
  end;
  writeln;
  writeln('---- Транспонированная матрица: -----');
  for i := 1 to 4 do
  begin
    for j := 1 to 5 do
      write('      ', b[i, j]:3, '  ');
    writeln;
  end;
  writeln;{верно до сюда}
  
  for i := 1 to 5 do 
  for j := 1 to 5 do
 begin
      c[i, j] := 0;
    for k := 1 to 4 do {ТОЧНО}
      c[i, j] := c[i, j] + A[i, k] * B[k, j];
  end;
  writeln('---- Результат умножения: -----');
  for i := 1 to 5 do
  begin
    for j := 1 to 5 do
      write(c[i, j]:5 );
    writeln;
end;
end.

[Smitt&Wesson]

Tucan, я в дельфю обычно не лезу, хотя и разбираюсь. Но, пожалуйста, оформляй код, как здесь принято. Чё, трудно нажать на стронг (решёточка сверху)? Ну читать конечно можно, но мы уж так привыкли. Вложенности, нам самим вычислять? О_оооо! Это пока у тебя одна прога, в ней ты хозяин. Когда их штук по 20 в месяц, да ещё и не тобой написаны.... Ой!

[Tucan]

На счет выделения кода-извиняюсь)Я здесь недавно.Сам хотел спросить как это сделать.
Далее.Причем здесь Delphi,если тема Паскаль?
И,наконец,есть люди настолько нашаренные и написавшие не один десяток кодов,что им достаточно взглянуть на код,чтобы сказать,где допущена ошибка.Хотя вы это,наверно,и без меня знаете.

[Serge_Bliznykov]

 for i := 1 to 5 do 
  for j := 1 to 5 do
 begin
      c[i, j] := 0;

матрица C не имеет 5 столбцов.

[Smitt&Wesson]

Сообщение от Tucan

И,наконец,есть люди настолько нашаренные и написавшие не один десяток кодов,что им достаточно взглянуть на код,чтобы сказать,где допущена ошибка.Хотя вы это,наверно,и без меня знаете.

Увы, но таких нет. Это - миф, бродяший среди нубов. Программистами не становятся, а рождаются. 90% здешних постояльцев - прирождённые программисты. Да, споры и между нами бывают. Но, это скорее выяснение приоритетов, чем их концепций.

[Tucan]

Сообщение от Serge_Bliznykov

матрица C не имеет 5 столбцов.

Как это не имеет? https://pp.vk.me/c630827/v630827021/...HCWqFhq6T4.jpg

[Smitt&Wesson]

Сообщение от Serge_Bliznykov

матрица C не имеет 5 столбцов.

Серёг, ты о чём? В задачке матрица 2х3. Или я что-то опять не правильно понял?