Сор по казахскому языку 2 класс 4 четверть​

Интересная ) var i,n : integer; begin   n: =99;   for i: =1 to n do begin        case i of          11..14 : writeln('мне ',i,' лет');           else              case i mod 10 of          1: writeln('мне ',i,' год');           2..4: writeln('мне ',i,' года');           else              writeln('мне ',i,' лет');               end;         end;   end; end.

Var a: array[1..20, 1..20] of integer; m, n, k, i, j: integer; begin randomize; repeat write('введите число столбцов и строк через пробел: '); readln(n, m); until (n in [1..20]) and (m in [1..20]); for i : = 1 to m do begin for j : = 1 to n do begin a[ i, j ] : = random(19) - 9; write(a[i, j]: 5); end; if odd(i) then writeln(' ') else writeln; end; writeln; writeln('заменяем отрицательные числа на нули, положительные - на единицы: '); writeln; for i : = 1 to m do begin for j : = 1 to n do begin if a[ i, j ] < = 0 then a[ i, j ] : = 0 else a[ i, j ] : = 1; write(a[i, j]: 5); end; if odd(i) then writeln(' ') else writeln; end; end.p.s: не совсем понятно последнее - вывести нижнюю треугольную матрицу. сделать новую или что?