ПОМОГИТЕ!!! СРОЧНО!!! ПАСКАЛЬ!!!Массив 5х5 заполнить случайными числами [0;2]. Посчитать

begin

 var a := MatrRandom(5, 5, 0, 2);

 a.Println;

 var Max := integer.MinValue;

 var Count := 0;

 for var i := 0 to 4 do

   for var j := 0 to 4 do

     if i + j gt; 4 then

     begin

       if Max lt; a[i, j] then

       begin

         Max := a[i, j];

         Count := 1

       end

       else

       if Max = a[i,j] then

         Count += 1

     end;

 Write(Count)

end.