Умножение матриц. Загвоздка.

[FullVenic]

Здравствуйте , прошу ващей помощи в программе.
Ошыбка заключается в следющем: при вводу данных в матрицу а например 1, 2, 3, 4 матрица стает одним символом ( последним(4)). Как это исправить? буду благодарен.

PHP код:

uses crt;
const n=2;m=2;p=2;
var


   a:array[1..n,1..m] of real;
   b:array[1..m,1..p] of real;
   c:array[1..n,1..p] of real;
     i,j,k :byte;




begin
  clrscr;
     for i:=1 to n do
     for j:=1 to m do
     begin
        readln(a[n,m]);
          end;
    for j:=1 to m do
     for k:=1 to p do
      readln(b[j,k]);

      for i:=1 to n do
      for k:=1 to p do
      c[i,k]:= c[i,k] + a[i,j]*b[j,m];


    write(a[i,j]:3:3);
    writeln;
    write(b[j,k]:3:3);
    writeln;
    write(c[i,k]:3:3);


    readln;

END. 


[_Alerter_]

Считывание массива а происходило в одну и ту же ячейку

for i:=1 to n do 
     for j:=1 to m do 
     begin 
        readln(a[i, j]); 
          end;

[FullVenic]

ничего не выходит


begin

for i:=1 to n do
for j:=1 to m do
begin
readln(a[i, j]);
end;

write(a[a,j]);
read;
end.

не получается, всеравно та же проблема

[_Alerter_]

for i := 1 to n do 
 for j := 1 to m do  
   readln(a[i, j]); 
for i := 1 to n do
begin
  for j := 1 to m do
    write(a[i,j], ' ');
  writeln;
end;

[FullVenic]

Спасибо, но появилась еще одна проблема, оно множит не матрицу а елементы 1111 * 1111 = 1111 не 2222. Помогите написать код перемножения

[_Alerter_]

for i := 1 to n do 
      for k := 1 to p do 
      begin
           c[i, k] := 0;
           for z := 1 to n do
               c[i, k] :=  c[i, k] + a[i, z] * b[z, j];
      end;
for i := 1 to n do
begin
      for k := 1 to p do
           write(c[i, k], ' ');
      writeln;
end;

[FullVenic]

спасибо огромное, только не мог бы ты обьяснить вкрасте це оно делает?
просто завал, я перешол в школу с нуля на СЛАУ

разобрался спасибо