Составить программу, которая обеспечивает поиск товара со стоимостью, большей заданного параметра К. Запись содержит название товара (тип string), кол

type tv=record
        naz:string[20];
        kol:integer;
        zen:real;
       end;
  mas=array [1..100] of tv;
var
buf:mas;
ch:char;
sum:real;
i,n:integer;
procedure vv(var buf:mas;var n:integer);
var c:char;
i:integer;
begin
i:=1;
while c<>'n' do
begin
  n:=i;
 write('vvedite nazvanie tovara: ');
 readln(buf[i].naz);
 write('vvedite kol-vo tovara: ');
 readln(buf[i].kol);
 write('vvedite zenu tovara: ');
 readln(buf[i].zen);
 write('prodolgit? y/n: ');
 inc(i);
 readln(c);
  end;
end;
 
procedure poisk(buf:mas;n,i:integer);
var k:real;
ch2:char;
k1:byte;
begin
while ch2<>'n' do
begin
 write('vvedite parametr: ');
 readln(k);
 for i:=1 to n do
  if buf[i].zen>k then
 begin
 writeln('nasvanie tovara: ',buf[i].naz);
 writeln('kol-vo tovara: ',buf[i].kol);
 writeln('zena tovara: ',buf[i].zen:8:2);
 writeln;
 inc(k1);
 end;
 
if k1=0 then writeln('poisk ne dal rezultata');
k1:=0;
writeln('eche raz? y/n: ');
readln(ch2);
end;
end;
 
BEGIN
while ch<>'3' do
begin
writeln;
writeln('1:vvod dannih');
writeln('2:poisk');
writeln('3:vihod');
readln(ch);
case ch of
'1':vv(buf,n);
'2':poisk(buf,n,i);
end;
end;
END.