Заполнить двумерный массив случайными числами до 50, найти кол-во четных элементов выше главной диагонали

Const
   N = 3;
Var
   A:array[1..N,1..N] of integer;
   i,j,k:integer;
Begin
Randomize;
WriteLn('Исходный массив A(',N,',',N,'):');
k:=0;
For i:= 1 to N do
    Begin
    For j:= 1 to N do
        Begin
        A[i,j]:=random(50);
        Write(A[i,j]:4);
        if (j>i)and(A[i,j] mod 2 = 0) then k:=k+1;
        End;
    WriteLn;
    End;
WriteLn('k = ',k);
End.

По вертикали: 1. В переводе с греческого название этого вида спорта означает «Хожу на цыпочках, лезу вверх» . (Акробатика) 3. Изобретатель снаряда для этого вида спорта - американец Ф. Рагалло. Аппарат напоминает парус или греческую букву «дельта». (Дельтапланеризм) 5. Спортивная игра с мячом, напоминающая русскую лапту. (Бейсбол) 6. Современное зимнее двоеборье. (Биатлон)  По горизонтали: 2. Командная спортивная игра проводится на поле размером 61 х 30 м. Площадка ограждена бортиками высотой 100 - 122 см. (Хоккей) 4. От слова, которое в переводе с итальянского означает «удар» , родилось название спортивного снаряда. (Батут) 5. Это скоростной спуск. Скорость спуска достигает более 100 км. Соревнуются только мужчины. (Бобслей) 7. Спортивная игра с мячом двух команд по шесть человек в каждой. Соревнования состоят из трёх или пяти партий. (Волейбол) 8. Одно из толкований названия этого вида спорта - «пустая рука» . (Каратэ)

У меня очень много любимых хобби. Но больше всего я люблю рисовать.
Когда я рисую, я не только получаю радость от нарисованного, но ещё и тренируюсь и каждая моя последующая картинка выходит всё лучше и лучше!
Некоторые мои друзья считают, что я лучшая художница из класса, но мне кажется, что каждый рисует хорошо для себя. 
Мне нравится рисовать в реалистичном и минималистичном стиле.
Каждый раз у меня новые идеи. Правда, все их выполнить сложно. Но я стараюсь максимально и надеюсь, что когда-нибудь нарисую очень красивую картину и мне будет чем гордиться.