Составить базу данных для товарного склада

uses crt;
type baza_dannyh=record
naimenovanie_tovara:string;
kolichestvo:integer;
cena:integer;
srok_hraneniya:integer;
end;
var  a:array [1..20] of baza_dannyh;
i,g,max: integer;
begin
for i:=1 to 3 do
begin
writeln('данные о товаре ',i);
writeln('наименование товара:');
readln(a[i].naimenovanie_tovara);
writeln('колличество товара:');
readln(a[i].kolichestvo);
writeln('цена:');
readln(a[i].cena);
writeln('срок хранения:');
readln(a[i].srok_hraneniya);
end;
clrscr;
writeln('вывод данных');
for i:=1 to 3 do
begin
writeln('товар ', i);
write('наименование товара:');
writeln(a[i].naimenovanie_tovara);
write('колличество товара:');
writeln(a[i].kolichestvo);
write('цена:');
writeln(a[i].cena);
write('срок хранения:');
writeln(a[i].srok_hraneniya);
end;
write('товары определённой цены:');
readln(g);
max:=0;
for i:=1 to 3 do
begin
if a[i].cena=g then writeln(a[i].naimenovanie_tovara);
if a[i].srok_hraneniya >max then max:=a[i].srok_hraneniya;
end;
writeln('максимальный срок хранения: ', max);
end.

begin
writeln ('Укажите информацию, которую хотите запросить',newline,
'1 - Все данные о товарах',newline,
'2 - Cписок товаров определенного срока хранения',newline,
'3 - Общая стоимость всех товаров');
readln (info);
for i:=1 to 3 do begin
if info=1 then
write('наименование товара:');
writeln(a[i].naimenovanie_tovara);
write('колличество товара:');
writeln(a[i].kolichestvo);
write('цена:');
writeln(a[i].cena);
write('срок хранения:');
writeln(a[i].srok_hraneniya);
end;