Задача на двумерные массивы, В чем ошибка? Опции

[zer0cold]

Помогите, пожалуйста, найти ошибку... не могу разобраться

uses wincrt;
var a:array [1..3,1..3] of integer;
      b:array [1..3] of integer;
      i,j,x,y,z,k:integer;
begin 
        for j:=1 to 3 do 
        if (a[i,j]>0) and (a[i+1,j]>0) and
        (a[i+2,j]>0) then 
        begin
                b[i]:=a[i];
                b[i+1]:=a[i+1];
                b[i+2]:=b[i+2];
                j:=j+1
         end;
         for i:=1 to 3 do
         writeln (b[i]);
End.

Если можно то сразу решение с исправлением напишите

М

Пожалуйста, используй теги при публикации программ: выделить программу и выбрать нужный пункт в меню CODE Lapp