Подсчитать в массивах количество элементов, больших значения t

var
  a, b: array[1..100] of integer;
  M, N, t, kola, kolb, i: integer;
 
begin
  //заполнение массива
  writeln('введите t');
  readln(t);
  writeln('введите сколько элементов в a');
  readln(N);
  for i := 1 to N do 
  begin
    writeln('введите ', i, '-ый элемент');
    readln(a[i]);
    if a[i] > t then kola := kola + 1;
  end;
  writeln('введите сколько элементов в b');
  readln(M);
  for i := 1 to M do 
  begin
    writeln('введите ', i, '-ый элемент');
    readln(b[i]);
    if b[i] > t then kolb := kolb + 1;
  end;
  if kola < kolb then begin for i := 1 to N do write(a[i], ' ');writeln;for i := 1 to M do write(b[i], ' '); end 
  else begin for i := 1 to M do write(b[i], ' ');writeln;for i := 1 to N do write(a[i], ' ') end;
end.

var
  a: array[1..100, 1..100] of real;
  i, n, j: integer;
  sr, sum: real;
 
begin
  //ввод данных
  writeln('введите N');
  readln(n);
  for i := 1 to n do
    for j := 1 to n do 
    begin
      writeln('введите ', i, ' ', j, ' элемент');
      readln(a[i][j]);
      sum := sum + a[i][j];
    end;
  //считаем ср. ар.
  sr := sum / (n * 2);
  writeln('исходный массив:');
  for i := 1 to n do
    for j := 1 to n do
      write(a[i][j], ' ');
  writeln('преобразованный массив');
  for i := 1 to n do
    for j := 1 to n do
      write(a[i][j] / sr, ' ');
end.