Составить программу, выводящую на экран сведения о периодических изданиях (наименование издания, тираж, стоимость подписки). Распечатать наименования изданий, для которых стоимость подписки превышает заданное значение.в паскале

Предыдущий
вопрос Следующий
вопрос

program PeriodicPublications;

type
Publication = record
name: string;
circulation: integer;
subscriptionCost: real;
end;
PublicationsArray = array of Publication;

var
publications: PublicationsArray;
i, n: integer;
maxSubscriptionCost: real;

begin
write('Введите количество изданий: ');
readln(n);

SetLength(publications, n);

for i := 0 to n-1 do
begin
writeln('Введите название издания ', i+1, ':');
readln(publications[i].name);
writeln('Введите тираж издания ', i+1, ':');
readln(publications[i].circulation);
writeln('Введите стоимость подписки на издание ', i+1, ':');
readln(publications[i].subscriptionCost);
end;

writeln('Введите максимальное значение стоимости подписки:');
readln(maxSubscriptionCost);

writeln;
writeln('Издания, стоимость подписки на которые превышает ', maxSubscriptionCost, ':');
for i := 0 to n-1 do
begin
if publications[i].subscriptionCost > maxSubscriptionCost then
begin
writeln(publications[i].name);
end;
end;
end.