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

close(zap);

assign(zap,'zap.txt');

reset(zap);

writeln('Введите марку, по которой необходимо выполнить сортировку');

read(vma);

{Отсев ненужных марок}

kof:=1;

ch:=0;

for i:=1 to kol do

begin

read(zap,avto[i]);

if avto[i].mark=vma then

begin

avto[kof]:=avto[i];

kof:=kof+1;

ch:=ch+1;

end;

end;

{Сортировка}

repeat

kl:=0;

for i:=1 to ch-1 do

begin

if avto[i].num>avto[i+1].num then

begin

box:=avto[i+1];

avto[i+1]:=avto[i];

avto[i]:=box;

kl:=1