Нет индексного свойства по умолчанию для типа integer

Program Massivi;
uses crt;
Type
Digit=array[1..3,1..3] of integer;
Matrix=array[1..3,1..3] of byte;
var
i,j,s,k,c: integer;
A: Digit;
B:Matrix;
begin
For
 i:=1 to 3 do
For
 j:=1 to 3 do begin
S:=0;
For k:=1 to 3 do
S:=S+A[I,k]+B[K,j];
S:=C[i,j];                           {Нет индексного свойства}
 
end;
For i:=1 to 3 do begin
write(S[C])
end;
end.

Program Massivi;
uses crt;
Type Matrix=array[1..3,1..3] of byte;
var i,j: integer;
    A,B,C:Matrix;
begin
randomize;
writeln('Матирица А');
For i:=1 to 3 do
 begin
  For j:=1 to 3 do
   begin
    A[i,j]:=random(20);
    write(A[i,j]:4);
   end;
  writeln;
 end;
writeln('Матирица B');
For i:=1 to 3 do
 begin
  For j:=1 to 3 do
   begin
    B[i,j]:=random(20);
    write(B[i,j]:4);
   end;
  writeln;
 end;
writeln('Матирица C=А+B');
For i:=1 to 3 do
 begin
  For j:=1 to 3 do
   begin
    C[i,j]:=A[i,j]+B[i,j];;
    write(C[i,j]:4);
   end;
  writeln;
 end;
end.

Program Massivi;
uses crt;
Type
Digit=array[1..3,1..3] of integer;
Matrix=array[1..3,1..3] of integer;
dix=array[1..3,1..3] of integer;
var
i,j,k: integer;
A: Digit;
B:Matrix;
S: Dix;
begin
writeln('vvedite matricu postrochno');
writeln('Pervaya postrochno');
For
i:=1 to 3 do 
For
j:=1 to 3 do 
Read(a[i,j]);
writeln;
writeln('Vtoraya postrochno');
For
i:=1 to 3 do 
For
j:=1 to 3 do 
Read(b[i,j]);
writeln;
writeln('Summa');
for i:=1 to 3 do begin
writeln;
for j:=1 to 3 do begin
 
S[i,j]:=A[I,j]+B[I,j];
{Нет индексного свойства}
 
write(S[i,j]);
readln;
end;
end;
end.

for i:=1 to 3 do begin
writeln;
for j:=1 to 3 do begin
 
S[i,j]:=A[I,j]+B[I,j];
{Нет индексного свойства}
 
write(S[i,j]:5);
 
end;
writeln
end;