Процедура

program zapisi;
uses crt;
type zapis=record
           Vidtovara:string;
           Nazvanietovara:string;
           Srokgodnosti:longint;
           Cena:integer;
         
           end;
var
a:array [1..10] of zapis;
n,i,k,np,j:integer;
t:string;
w:char;
begin
clrscr;
writeln('Kolichestvo tovarov:');
readln(n);
for i:=1 to n do
begin
writeln('TOVAR' ' ' ' ',i);
write(' - Vidtovara: ');readln(a[i].Vidtovara);
write(' - Nazvanietovara: ');readln(a[i].Nazvanietovara);
write(' - Srokgodnosti: ');readln(a[i].Srokgodnosti);
write(' - Cena: ');readln(a[i].Cena);
end;
clrscr;
writeln('Spisok tovarov:');
writeln('--------------------------------------------------------------------------------');
writeln('Vidtovara':15, ' | ', 'Nazvanietovara':15, ' | ', 'Srokgodnosti':20, ' | ', 'Cena':20, ' | ' );
writeln('--------------------------------------------------------------------------------');
for i:=1 to n do
writeln(a[i].Vidtovara:15, ' | ', a[i].Nazvanietovara:15, ' | ', a[i].Srokgodnosti:20,' | ', a[i].Cena:20,' | ');
writeln('--------------------------------------------------------------------------------');
begin
for i:=1 to n do
if a[i].Srokgodnosti<2016 then 
writeln('Prosrochennij tovar (№):' ' ' ' ', i);
end;
write('use Enter  ');
readln;
clrscr;
repeat
writeln('Iskat po: nazvaniyu tovara-1, cene-2');
readln(np);
if np=1 then
begin
writeln('vvedite nazvanie tovara dlya poiska:');
readln(t);
end;
if np=2 then
begin
writeln('vvedite cenu dlya poiska:');
readln(j);
end;
k:=0;
writeln('---------------------------------------------------------------------');
writeln('Nazvanie tovara':15, ' | ', 'Cena':15, ' | ', 'Srokgodnosti':20, ' | ');
writeln('---------------------------------------------------------------------');
for i:=1 to n do
begin
if np=1 then
if a[i].Nazvanietovara=t then
begin
k:=1;
writeln(a[i].Nazvanietovara:15, ' | ', a[i].Cena:15, ' | ', a[i].Srokgodnosti:20,' | ');
end;
if np=2 then
if a[i].Cena=j then
begin
k:=1;
writeln(a[i].Nazvanietovara:15, ' | ', a[i].Cena:15, ' | ', a[i].Srokgodnosti:20,' | ');
end;
end;
writeln('---------------------------------------------------------------------');
if k=0 then writeln('poisk ne dal resultatov');
writeln('use Enter');
 
readln;
clrscr;
writeln('povtorit poisk? Y/y-yes, drugoe no');
readln(w);
until not (w in ['Y','y']);
end.