Информатика. Помощь в решении задач по массивам

1.

var
    b: array [1..6, 1..6] of integer;
    i, j: integer;
begin
    randomize;
    writeln('исходный массив: ');
    for i := 1 to 6 do begin
        for j := 1 to 6 do begin
            b[i, j] := random(10);
            write(' ', b[i, j]);
        end;
        writeln;
    end;
    for i := 1 to 6 do
        for j := i + 1 to 6 do b[i, j] := 0;
    writeln('преобразованный массив: ');
    for i := 1 to 6 do begin
        for j := 1 to 6 do write(' ', b[i, j]);
        writeln;
    end;
end.

2. ..
> Будь человечны, пожалуйста
Будь человеком, пожалуйста, при создании вопроса:
1) укажи язык программирования
2) опубликуй свою попытку выполнить задание на сайте pastebin.com, сюда выложи ссылку
3) напиши, какие проблемы возникли при выполнении задания, если программа скомпилировалась, то пиши "ожидал такой-то результат, а по факту работает так" и дополни вопрос тестовыми данными, на которых выходит неверный результат, если программа не компилируется, то указать конкретное место где компилятор выдает ошибку.
4) один вопрос для одного задания

мне кажется, вот тут исправить, а то выход за границу массива
for i := 1 to 5 do
for j := i + 1 to 6 do b[i, j] := 0;
writeln('преобразованный массив: ');....