Найдите среднее арифметическое первого столбца матрицы - Turbo Pascal

var mas: array [0..100] of array [0..100] of integer;      {массив, размеры массива}
                   x,y:integer;
                   i,j:integer;
                   mid: real;
                   n,count:integer;
         begin
            writeln('Введите x размер массива');          {запрашиваем размер массива}
            readln(x);
            writeln('Введите y размер массива');
            readln(y);
{запрашиваем значения массива, последовательно перебирая все ячейки, каждый столбец  }
     for i:=0 to x-1 do 
     for j:=0 to y-1 do
 
          begin 
               writeln('Введите массив[',i,',',j,']');
                readln(mas[i,j]);
             end;
{запускаем цикл по столбцам с нулевого(первого) до предпоследнего }
     for i:=0 to x-2 do
           begin
                 mid:=0;
      for j:=0 to y-1 do               {перебираем весь столбец}
       mid:=mid+mas[i,j]; 
       mid:=mid/y;                  {находим среднее арифметическое столбца I}
{выводим среднее арифметическое  столбца и номер столбца}
       writeln('среднее арифметическое',i,'=',mid);
{обнуляем переменную где значение количество найденных чисел, так как у каждого столбца свое значение }
        count:=0;
{бежим по следующему сталбцу и ищем элементы больше среднего }
        for j:=0 to y-1 do
        if    mas[i+1,j]   >  mid    then Inc(count);
         writeln('');
       end;
end.