Реферат: Иследование методов сортировки Метод пузырька и Метод простых вставок

if name='' then showmessage('Пожалуйста, выберитефайл') else

begin

assignfile(f,name);

reset(f);

readln(f,n);

label1.caption:=inttostr(n);

Label4.Caption:='';

Series1.Clear;

SetLength(a,n+1);

for i:=1 to n do

begin

read(f,a[i]);

Label4.Caption:=Label4.Caption+' '+IntToStr(a[i]);

Series1.AddXY(i,a[i]);//отображния исходного массива на диограмме

end;

closefile(f);

end;

end;

// сортировкаметодомпузыртка

procedure puzerek(n:integer; var a:mass);

var j,tmp:integer;

begin

for i:=1 to n-1 do

for j:=1 to n-i do

if (a[j+1]<a[j]) then

begin

tmp:=a[j+1];

a[j+1]:=a[j];

a[j]:=tmp;