Выбрать на всех АО те, которые были открыты после 2001 года - Turbo Pascal

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

написать программу,выбирающую на всех АО те,которые были открыты после 2001 года,вынести названия предприятий и их начальный капитал

Решение задачи: «Выбрать на всех АО те, которые были открыты после 2001 года»

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

uses CRT;
type
company=record
year:integer;
name:string;
kopital:integer;
end;
Var i,j:shortint; a:array[1..5] of shortint; b:array[1..5] of company;
begin
clrscr;
j:=1;
for i:=1 to 5 do
begin
Writeln('ГѓГ®Г¤');
readln(b[i].year);
if b[i].year>2001
then begin
a[j]:=i;
j:=j+1;
end;
Writeln('ГЌГ*Г§ГўГ*Г*ГЁГҐ');
readln(b[i].name);
Writeln('ГЌГ*Г·Г*Г«ГјГ*Г»Г© ГЄГ*ГЇГЁГІГ*Г«');
readln(b[i].kopital);
clrscr;
end;
Writeln('ГЏГ°ГҐГ¤ГЇГ°ГЁГїГІГЁГї Г®ГІГЄГ°Г»ГІГ»ГҐ ГЇГ®Г±Г«ГҐ 2001 ГЈГ®Г¤Г*');
for i:=1 to j-1 do
begin
Write('Г€Г¬Гї ',b[a[i]].name,' ГЄГ*ГЇГЁГІГ*Г« ',b[a[i]].kopital);
Writeln;
end;
readln;
end.

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

Этот код написан на языке Turbo Pascal и выполняет следующую задачу: выбирает все АО, которые были открыты после 2001 года. В коде используется структура данных компания, которая содержит поля год, название и копиал. Переменная i используется для итерации по каждому из пяти АО. Переменная j используется для отслеживания количества выбранных АО. Если год открытия АО больше 2001, то он добавляется в массив a и увеличивается значение переменной j. Затем происходит вывод информации о каждом АО, включая его название и копиал. После этого происходит вывод сообщения о том, что выбрано j АО. Наконец, происходит вывод информации о каждом выбранном АО.