Курсовая работа: Автоматизированная система обработки структур данных

{Процедура сортировки данных по дате}

procedure sort(var d: spisok);

var i,j: byte; t: tabliza;

begin

t: =d [1] ;

for i: =2 to 15 do

for j: =15 downto i do

if d [j-1]. data>d [j]. data then begin

t: =d [j-1] ;

d [j-1]: =d [j] ;

d [j]: =t

end

end;

{Процедура записи отсортированных данных в файл}

procedure vyvod3(d: spisok);

var

i: byte;

f1: text;

begin

assign(f1,'sort_tab. pas');

rewrite(f1);

writeln(f1,'nomer tovar data srok stoimost');

for i: =1 to 15 do begin

write(f1,d [i]. nomer);

write(f1,d [i]. tovar);

write(f1,d [i]. data: 3);

write(f1,d [i]. srok: 5);

write(f1,d [i]. stoim: 8: 0);

writeln(f1);