итак финальный код включения (работает)
Код:
procedure tform1.vkluch(n:integer);
var
j,b,i,cv,mv:integer;
f:textfile;
begin
n:=strtoint(Edit1.Text);
if OpenDialog1.Execute then begin
assignfile(f,opendialog1.FileName);
reset(f);
i:=1;
while not eof(f) do begin
readln(f,a[i]);
i:=i+1;
end;
n:=i-1;
i:=2;
cv:=0;
mv:=0;
j:=j-1;
while i<=n do begin
//for j:=i-1 downto 2 do begin
cv:=cv+1;
j:=i;
while (a[j]<a[j-1])and(j>1) do begin
b:=a[j-1];
a[j-1]:=a[j];
a[j]:=b;
mv:=mv+1;
j:=j-1;
end;
i:=i+1;
end;
stringgrid2.ColCount:=n+1;
for i:=1 to n do
stringgrid2.cells[i-1,0]:=inttostr(a[i]);
end;
end;