Program kanz_tovari;
type tovari = record
*********kod : integer;
*********name : string;
*********cost : real;
****end;
var
*********ntovar:tovari;
*********f : file of tovari;
*********i,n : integer;
*********b:string;
begin
assign (f,**'kanz_tovari.pas');
Rewrite ( f );
write ('Укажите сколько будет товаров');
readln (n);
for i:=1 to n do
*****begin
**********with ntovar do
**************begin
****************writeln ('Введите название ',i,'-го товара*');
****************readln (name);
****************writeln ( 'Введите код ',i,'-го товара ');
****************readln (kod);
****************writeln ('Введите стоимость ',i,'-го товара*');
****************readln (cost);
**************end;
**********write ();
*****end;
close ( f );
writeln('---| Поиск нужного товара |---');
reset ( f );
**********with ntovar do
**************begin
****************writeln ('Введите название нужного товара*');
****************readln (b);
****************if b=name then
**********write (ntovar.cost);
********end;
********close(f)
*****end.

Program kanz_tovari;
type tovari = record
               kod : integer;
               name : string;
               cost : real;
              end;
var
 ntovar:tovari;
 f : file of tovari;
 i,n : integer;
 b:string;
 bul:boolean;
 finish:Char;
begin
 assign (f,'D:\kanz_tov.dat');
 Rewrite ( f );
 write ('Укажите сколько будет товаров ');
 readln (n);
 for i:=1 to n do
  with ntovar do
   begin
    writeln ('Введите название ',i,'-го товара ');
    readln (name);
    write ( 'Введите код ',i,'-го товара ');
    readln (kod);
    write ('Введите стоимость ',i,'-го товара ');
    readln (cost);
    Write(f,ntovar);
   end;
 writeln;
 close ( f );
 writeln('---| Поиск нужного товара |---');
 Repeat
  Write('Следующее наименование? (Y/N) ');
  Readln(finish);
  If (finish='Y') or (finish='y') then
   begin
    bul:=false;
    writeln ('Введите название нужного товара ');
    readln (b);
    reset ( f );
    i:=0;
    repeat
     Inc(i);
     Read(f,ntovar);
     if b=ntovar.name then bul:=true;
    until bul or (i=n);
    If bul=false then
     writeln('Такого товара нет!')
    else
     with ntovar do
       writeln('Код товара - ',kod,',    цена - ',cost:0:2);
    writeln;
   end;
 Until (finish='N') or (finish='n');
 close(f)
end.