Delphi 7 умножение матриц

Подскажи, пожалуйста, почему выводятся только нули и только по нажатию Enter? Условия задачи : дано n,m,p ; a[n][m], b[m][p] Получить: c=a*b
program Project2;

Код:
{$APPTYPE CONSOLE}

uses
SysUtils;
const
n=2;
m=2;
p=2;
var
//Matrica А (n,m)
//Matrica B(m,p)
//Matrica C(n,p)
A : array [1..n, 1..m] of Integer;
B : array [1..m, 1..p] of Integer;
C : array [1..n, 1..p] of Integer;
k,j,v : Integer;
begin
for k := 1 to n do
begin
for j := 1 to m do
begin
for v := 1 to p do
begin
C[k,j] := A[k,v]*B[v,j];
write (C[k,j]);
end;
writeln;
readln;
end;
end;
end.

Подскажите*