Паскаль / курсовые / Курсовая Pascal Компьютерная фирма / TACCC

program dobavit;
type
tovar=record
regnom:integer;{ॣЁбва жЁ®­­л© ­®¬Ґа}
name:string;{­ Ё¬Ґ­®ў ­ЁҐ}
haracter:char;{е аҐЄвҐаЁбвЁЄЁ}
data:string; {¤ в  Ё§Ј®в®ў«Ґ­Ёп}
garant:string; {ба®Є Ј а ­вЁЁ}
cenaopt:real; {®Їв®ў п 業 }
cenarozn:real; {஧­Ёз­ п 業 }
end;
var
baza:file of tovar; {ЇҐаҐ¬Ґ­­ п д ©«  б Ў §®©}
buf:tovar;
i:integer;
begin
assign(baza,'c:\Єгаб з\firma.dat'); {Ё­Ё «Ё§ жЁп д ©« }
reset(baza);
repeat
read(baza,buf);
writeln(buf.regnom);
writeln('­ Ё¬Ґ®ў ­ЁҐ');
writeln(buf.name);
writeln('е а ЄвҐаЁбвЁЄЁ');
writeln(buf.haracter);
writeln('ба®Є Ј а­вЁЁ');
writeln(buf.garant);
writeln('業  ®Їв®ў п');
writeln(buf.cenaopt);
buf.cenaopt:=0;

readln;
until(eof(baza));
close(baza);
end.