Определить, выписывает ли Петров газету "Правда" - Pascal ABC

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

Здравствуйте! Задание: Даны наименования трёх газет и три фамилии подписчиков. Определить, выписывает ли Петров газету "Правда". Мое решение:

program z3;
var A:array[1..3] of string;
var B:array[1..3] of string;
i,k:byte;
 
begin
writeln('Ввод названий газет и их подписчиков');
for i:=1 to 3 do
begin 
readln(A[i]);
readln(B[i]);
end;
k:=0;
for i:=1 to 3 do
if (A[i]='Правда') and (B[i]= 'Петров') then
begin
k:=i;
writeln('Да,Петров выписывает газету ',A[i]);
end;
if k=0 then writeln('Петров не выписывает газету',A[i]);
end.

Подскажите,правильно решена задача? (Видел на форуме задачу с таки же условием, но она решена без использования массивов) И как сделать так,чтобы на экран выводился индекс газеты и индекс ее подписчика? Например: [1] Правда и [1] Петров или [2] Газета n , [3] Подписчик n ? Заранее спасибо!

Решение задачи: «Определить, выписывает ли Петров газету "Правда"»

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

var A:array[1..3] of string;
var B:array[1..3] of string;
    i,j,k:byte;
begin
writeln('Введите названия газет');
for i:=1 to 3 do
readln(A[i]);
writeln('Введите фамилии подписчиков');
for i:=1 to 3 do
readln(B[i]);
k:=0;
for i:=1 to 3 do
for j:=1 to 3 do
if (A[i]='Правда') and (B[j]= 'Петров') then
  begin
   k:=1;
   writeln('Да,Петров выписывает газету Правда');
  end;
if k=0 then writeln('Петров не выписывает газету Правда');
end.

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

Создаются два массива строк A и B, каждый из которых содержит до 3-х строк.
В цикле for считываются названия газет и фамилии подписчиков.
Переменная k инициализируется значением 0.
В цикле for внутренний цикл выполняется для i от 1 до 3 и для j от 1 до 3.
Внутренний цикл выполняется, если текущая строка в массиве A равна 'Правда' и текущая строка в массиве B равна 'Петров'.
Если условие выполняется, то переменная k устанавливается равной 1, и выводится сообщение 'Да,Петров выписывает газету Правда'.
Если внутренний цикл не выполнился ни разу, то выводится сообщение 'Петров не выписывает газету Правда'.
Код завершается после окончания внутреннего цикла.