Дан двумерный массив целых чисел. Написать программу, которая:

program ArraysOnceAgain_Again_;
 
const
  RowLast = 5;
  ColLast = 5;
  MaxRandom = 556;
 
var
  r, c : Integer;
  Ar : array [0..RowLast, 0..ColLast] of Integer;
  ColSum, ColCnt : Integer;
  LastDigit : Byte;
 
begin
  //заполняем и выводим массив
  randomize();
  for r := 0 to RowLast do
    begin
      for c := 0 to ColLast do
        begin
          Ar[r, c] := Random(MaxRandom)+1;
          write(Ar[r, c], ' ');
        end;
      writeln;
    end;
    
  
  //расчитываем и выводим средние значения по заданным условиям
  writeln;
  for c := 0 to ColLast do
    begin
      ColSum := 0;
      ColCnt := 0;
      
      for r := 0 to RowLast do
        begin
          LastDigit := Ar[r, c] mod 10;
          
          if (LastDigit <> 0) and (Ar[r, c] mod LastDigit = 0)
          then
            begin
              ColSum := ColSum + Ar[r, c];
              Inc(ColCnt);
            end;
            
        end;
                
      writeln('Столбец: ', c, ' ', 'Среднее значение по усл.: ', ColSum/ColCnt);
    end;
    
end.