Решите задачу в паскале. ПОЖАЛУЙСТА!!Найти максимальный элемент 2-ой строки и количество четных элементов 5-го столбца матрицы Х(5,5).

const n=5; var    a,b:array[1..n,1..n] of integer;   i,j: byte;   max2,k5:integer; begin   randomize;   k5:=0;   max2:=0;   for i:=1 to n do begin      for j:=1 to n do begin       a[i,j]:=random(1,100);       write(a[i,j]:4);       if (i=2) and (a[i,j]>max2)          then max2:=a[i,j];       if (j=5) and (a[i,j] mod 2 =0)          then k5:=k5+1;     end;     writeln;   end;     writeln;   writeln ('Максимальный элемент 2-ой строки = ',max2);   writeln ('Количество четных элементов 5-го столбца = ',k5);   end. --------------------------------------------- Пример:    2  26  38  58  16   70  24  40  39  35   74  38  69  93  94   64   6  18  56  93   44  86  17  93  56 Максимальный элемент 2-ой строки = 70
Количество четных элементов 5-го столбца = 3