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