Помогите подправить задачку Pascal.Условие: Даны наименования трёх газет и три фамилии

Помогите подправить задачку 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

Ярослава 2019-07-15 21:18:01

И пишите в ответ,а не в комменты,баллы же нужно для вас дать :)

Dima Mechnikov 2019-07-15 21:27:42

я же ничего не решил

Нелли 2019-07-15 21:29:18

writeln('Да, Петров выписывает газету [',k,'] ',A[i]);

Костя Шеваль 2019-07-15 21:30:09

[',k,'] вот это воткните перед ',A[i]

Наталья 2019-07-15 21:36:22

и индекс газеты выводиться будет

Степка Клицов 2019-07-15 21:39:43

writeln('Да, [',k,'] Петров выписывает газету [',k,'] ',A[i]);

Мария Атнабаева 2019-07-15 21:44:40

так и индекс петрова выписывается

Данил 2019-07-15 21:50:28

Да, Петров[1] выписывает газету [1] Правда

Виталька Бадыченков 2019-07-15 21:52:17

Да, [1] Петров выписывает газету [1] Правда

Кирилл Проклюшин 2019-07-15 21:58:23

Мне хотелось бы,чтоб было так: Ввод газет: [1]Правда [2]Мир [3]Безбожник . Ввод подписчиков: [1]Петров [2]Дружаев [3]Базаров. => Да, Петров выписывает Правду. Пишите в ответ.