Помогите решить задачу

Program Trans;
type mat=array [1..100,1..100] of integer;
type mas=array [1..100] of integer;
Var C,X:mat;    {Массивы чисел}
    A,B:mas;       {А-объем потребления,В - производства}
    i,j:integer;
Begin
     writeln('Vveditе C[i,j]:');
     for i:=1 to 4 do
     for j:=1 to 4 do
     readln(c[i,j]);
     writeln('Vvedite A[i]:');
     for i:=1 to 4 do
     readln(a[i]);
     writeln('Vvedite B[j]:');
     for j:=1 to 4 do
     readln(b[j]);
     writeln('ucxog');
     for i:=1 to 4 do
     begin
          for j:=1 to 4 do
          write(C[i,j]:2,' ');
          writeln;
     end;
     writeln('pe3yльTaT');
     for i:=1 to 4 do
     for j:=1 to 4 do
     x[i,j]:=0;
     if b[1]>a[1] then
     begin
          x[1,1]:=a[1];
          for i:=2 to 4 do
          begin
               for j:=1 to 4 do
               x[i,j]:=b[j]-x[i-1,j];
               for j:=1 to 4 do
               x[i,j+1]:=a[i]-x[i,j];
          end;
     end;
     for i:=1 to 4 do
     begin
          for j:=1 to 4 do
          write(X[i,j]:2,' ');
          writeln;
     end;
end.