Одномерные массивы A B образование нового массива C - Turbo Pascal

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

Даны два одномерных массива А(8 элементов) и В(5 элементов) сами числа вводим с клавиатуры. Образуйте новый массив из элементов массива А(8), каждый из которых больше любого элемента массива В(5). Попросили помочь с этой задачей,но я давно не занимался этим и что то у меня не получилось может кто поправить и скинуть рабочий вариант?

var i,j,max:integer;
      A: array[1..8] of integer;
      B: array[1..5] of integer;
      C: array[1..8] of integer;
begin
     for i = 1 to 8 do begin
          writeln('Введите элементы массива А по одному');
          read(A[i]); // Считываем элементы массива введённые с клавиатуры.
          write(' '); // Пробел для разделения элементов в строке и удобства чтения
     end;
     writeln(' '); //Для перевода курсора на следующую строку
     for i = 1 to 5 do begin
          writeln('Введите элементы массива B по одному');
          read(B[i]);
          write(' '); 
     end;
     writeln(' '); 
     max:=b[1]; // Для определения наибольшего элемента массива B
     j:=1; // Для формирования массива C
     for i = 2 to 5 do if b[i] > max then max:=b[i]; // Ищем наибольший элемент массива B
     for i = 1 to 8 do  
          if a[i] > max then begin // Сравниваем элементы массива A с наибольшим элементом массива B 
                 c[j]:=a[i]; // Формируем массив C из подходящих условию элементов массива A
                 j:=j+1; // Счетчик для формирования массива C
          end;
     if j>1 then for i = 1 to j-1 do begin //Проверяем нашлись ли подходящие элементы в массиве A
     writeln('Количество подходящих условию элементов = '+j-1); // Выводим количество подходящих элементов.
     write (c[i]+' '); // Пробел для разделения элементов и удобства чтения. // Выводим сформированный массив C на экран
     end;
     else write('Массив C пуст. Элементы подходящие условию не найдены...') ; {На случай если ни один из элементов массива A не соответствует условию задачи}
     readln(); //ожидание нажатия "Enter" для просмотра результата...
end.

Решение задачи: «Одномерные массивы A B образование нового массива C»

Листинг программы

uses crt;
var i,j,max:integer;
    A,B,C: array[1..8] of integer;
begin
clrscr;
writeln('Введите элементы массива А по одному');
for i:= 1 to 8 do
 begin
  write('A[',i,']=');
  readln(A[i]); // Считываем элементы массива введённые с клавиатуры.
 end;
writeln('Введите элементы массива B по одному');
for i:= 1 to 5 do
 begin
  write('B[',i,']=');
  readln(B[i]);
 end;
clrscr;
writeln('Массив А');
for i:=1 to 8 do
write(A[i],' ');
writeln;
writeln('Массив B');
for i:=1 to 5 do
write(B[i],' ');
writeln;
max:=b[1]; // Для определения наибольшего элемента массива B
for i:= 2 to 5 do
if b[i] > max then max:=b[i]; // Ищем наибольший элемент массива B
j:=0; // Для формирования массива C
for i:= 1 to 8 do
if a[i] > max then // Сравниваем элементы массива A с наибольшим элементом массива B
 begin
  j:=j+1; // Счетчик для формирования массива C
  c[j]:=a[i]; // Формируем массив C из подходящих условию элементов массива A
 end;
writeln('Количество подходящих условию элементов = ',j); // Выводим количество подходящих элементов.
if j>1 then
for i:= 1 to j do
write (c[i],' ') // Пробел для разделения элементов и удобства чтения.
else write('Массив C пуст. Элементы подходящие условию не найдены...') ;
readln; //ожидание нажатия "Enter" для просмотра результата...
end.

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

В первой строке кода используется директива uses, которая указывает на использование библиотеки crt.
Переменные i, j и max инициализируются целочисленными значениями.
Объявляются три массива A, B и C с длиной 8 элементов типа integer.
Строка clrscr; очищает экран перед вводом данных.
В цикле for считываются элементы массива A и сохраняются в соответствующие ячейки массива A.
Аналогично считываются элементы массива B и сохраняются в соответствующие ячейки массива B.
Выводится сообщение Массив А и выводятся элементы массива A.
Выводится сообщение Массив B и выводятся элементы массива B.
Переменная max инициализируется значением первого элемента массива B.
Запускается цикл for, который сравнивает каждый элемент массива A с текущим значением max. Если элемент A больше max, то обновляется значение max.
После завершения цикла for выводится сообщение Количество подходящих условию элементов = с значением переменной j.
Если значение j больше 1, то запускается второй цикл for, который выводит элементы массива C.
Код завершается вызовом функции readln, чтобы дождаться нажатия клавиши Enter.