Курсовая работа: Порівняльний аналіз ефективності та складності алгоритмів сортування файлів і послідовностей

inc(i);

end;

close (a);

rewrite (b);

i:=0;

while i<=b_len do

begin

x.key:=random(b_len);

write (b,x);

inc(i);

end;

close (b);

writeln ('Файли утоврені коректно');

readln;

end.