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

Формулировка задачи:

1. Заданы два массива A(N) и B(M). Подсчитать в них количество элементов, больших значения t и первым на печать вывести массив, имеющий наименьшее их количество. Значение t вводит пользователь. 2. Задан массив вещественных чисел A[N,N].. Необходимо каждый элемент массива разделить на среднее арифметическое элементов массива. На печать вывести исходный и преобразованный массивы.

Решение задачи: «Подсчитать в массивах количество элементов, больших значения 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.

Объяснение кода листинга программы

Создаются переменные a, b, M, N и t типа integer.
Пользователю предлагается ввести значение t и количество элементов в массиве a (N).
Для каждого введенного элемента a[i] выполняется проверка: если он больше t, то переменная kola увеличивается на 1.
Пользователю предлагается ввести количество элементов в массиве b (M).
Для каждого введенного элемента b[i] выполняется проверка: если он больше t, то переменная kolb увеличивается на 1.
Выполняется проверка: если количество элементов в массиве kola меньше количества элементов в массиве kolb, то выводится содержимое массива a.
Если количество элементов в массиве kola больше количества элементов в массиве kolb, то выводится содержимое массива b.