Всем здравствуйте. Нужна помощь. Суть задания заключается в том, что нужно создать матрицу С из А и В по условию. Но у меня получается пока ерунда какая-то. Вот, собственно, код
Program Matrix;

var

A:array[1..3,1..3] of real;

i,j:integer;

B:array[1..3,1..3] of real;

k,l:integer;

C:array[1..3,1..3] of real;

x,y:integer;

BEGIN

Writeln('Введите элемента матрицы А:');

for i:=1 to 3 do

for j:=1 to 3 do

Read(A[i,j]);

Writeln('Введите элемента матрицы B:');

for i:=1 to 3 do

for j:=1 to 3 do

Read(B[i,j]);

for i:=1 to 3 do

for j:=1 to 3 do

begin

if a[i,j]+2<b[i,j] then

c[a,j]:=a[i,j]+b[i,j]

else

c[i,j]:=a[i,j]-1/b[i,j];

end;

Writeln('Матрица C:');

for i:=1 to 3 do

begin

for j:=1 to 3 do

Write(C[i,j]:4:2,' ');

Writeln;

end;

END.

Буду признателен за помощь.