Напишите программку, которая ввод данных в одномерный целочисленный массив осуществляет

Program z1;
var
i, j, p: integer;
a: array[1..6, 1..3] of integer;
begin
p := 1;
i := 1;
j := 1;
while i lt;= 6 do
begin
    while j lt;= 3 do
    begin
        write('a[',i,'][',j,']=');
        readln(a[i,j]);
        j := j + 1;
    end;
    i := i + 1;
end;
i := 1;
j := 1;
repeat
    repeat
        if a[i,j] gt;= 0 then
           p := p * a[i,j];
        j := j + 1;
    until j gt; 3;
    i := i + 1;
until i gt; 6;
writeln('произведение неотрицательных частей: ',p);
end.