Задание 6. 21. Создать на МД файл, записи которого имеют следующую структуру:

21. Создать на МД файл, записи которого имеют следующую структуру:

- дата;

- код материала;

- наименование материала;

- единица измерения;

- цена (руб).

Вывести следующий документ:

Сведения об изменении цен на поступившие материалы

Дата	Код материала	Наименование материала	Единица измерения	Цена (руб)
15.04 15.05 .....	.....	шёлк полотно .....	м м .....	65.00 37.00 .....
Итого	Ö	Ö	Ö	Ö

program sved;

Type

zapis = record

data: string[30];

kodm: integer;

name: string[30];

ed: string[5];

zena: real;

end;

label m1; {Выход из процедуры-ответ конец для поля data}

Var

zapisfile: file of zapis;

reczapis: zapis;

i,rej: integer;

Begin

assign(zapisfile,'mater.doc');

rewrite(zapisfile);

with reczapis do

while true do

Begin

writeln('Введите дату- хх/xx/xx');

readln(data);

if data='конец' then

Begin

close(zapisfile);

goto m1

end;

writeln('Введите код материала');

readln(kodm);

writeln('Введите единицы измерения');

readln(ed);

writeln('Введите наименование материала');

readln(name);

writeln('Введите стоимость материала');

readln(zena);

write(zapisfile,reczapis)

End;

Begin

m1:

writeln(' ':10,'Сведения об изменении цен на поступившие');

writeln(' ':20,'Материалы');

writeln('---------------------------------------------------------------');

writeln('* ДАТА * КОД МАТЕР. * НАИМЕНОВАНИЕ МАТЕР. * ЕД. ИЗМ. * ЦЕНА *');

writeln('---------------------------------------------------------------');

assign(zapisfile,'mater.doc');

reset(zapisfile);

with reczapis do

while not eof(zapisfile) do

Begin

read(zapisfile,reczapis);

writeln(data:8,kodm:10,name:22,ed:12,zena:11:2)

end;

writeln('---------------------------------------------------------------');

close(zapisfile)

End;

readln

end.