Помогите подправить задачу Pascal. Условие: Даны наименования трёх газет и три фамилии подписчиков. Определить, выписывает ли Петров газету "Правда". Мое решение: 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

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 write([,i,]);readln(A[i]); end;
writeln(Ввод подписчиков: );
  for i:=1 to 3 do begin write([,i,]); readln(B[i]); end;

for i:=1 to 3 do begin
  if (A[i]=правда) and (B[i]= петров) then begin k:=i;
  writeln(Да, Петров выписывает газету ,A[i]); end;
 end;
end.

Ввод названий газет: 
[1]Книга
[2]Правда
[3]Вера
Ввод подписчиков: 
[1]Библиотекарь
[2]Петров
[3]Гундяев
Да, Петров выписывает газету Правда