Нахождение номера цифры - Pascal ABC

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

Написать программу в которую вводятся два массива (массивы должны быть упорядочены), одним циклом найти одинаковые цифры в массивах и определить на каком месте находятся совпадающие цифры из второго массива в первом массиве. Пример: 918273645 123456789 (первое число второго массива 1=2 находится на 2 месте в первом массиве )

Решение задачи: «Нахождение номера цифры»

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

program proga1; 
uses crt; 
const
    N = 5;
var
    arr1,arr2: array[1..N] of integer;
    
    i,a,k: Byte;
begin
    writeln('Заполните первый массив:');
    for i := 1 to N do
        read(arr1[i]);
 
    writeln('Заполните второй массив:');
    for i := 1 to N do
        read(arr2[i]);
 begin       
        k:=0;
        i:=1;
      while(i<=n)and(k=0) do
     if a[i]=b[1] then k:=i
     else i:=i+1;
     write(k);
 end;   
 end.

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

Этот код написан на языке Pascal ABC и выполняет следующие действия:

Создает два массива arr1 и arr2, каждый из которых содержит 5 чисел.
Запрашивает у пользователя ввести номер цифры для поиска.
Инициализирует переменные i, a и k значением Byte.
Выводит сообщение Заполните первый массив:, затем считывает 5 чисел от пользователя и сохраняет их в массиве arr1.
Выводит сообщение Заполните второй массив:, затем считывает 5 чисел от пользователя и сохраняет их в массиве arr2.
Устанавливает переменную k в 0.
Устанавливает переменную i в 1.
В цикле while считывает следующее число из массива arr1 и сравнивает его с первым числом из массива arr2.
Если числа равны, то устанавливает переменную k в значение i.
Если числа не равны, то увеличивает i на 1.
Выводит значение переменной k. Код не использует вложенные списки.