Если ещё не поздно и нужно, тогда вот:
Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Button1: TButton;
StringGrid1: TStringGrid;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
VAR
I,J,N,X:INTEGER;
A:ARRAY[0..50] OF INTEGER;
begin
N:=StrToInt(Form1.Edit1.Text);
FOR I:=1 TO N DO
a[i]:=StrToInt(Form1.StringGrid1.Cells[i-1,0]);
FOR I:=2 TO N DO BEGIN
X:=A[I];
A[0]:=X;
J:=I;
WHILE X<A[J-1] DO BEGIN
A[J]:=A[J-1];
DEC(J)
END;
A[J]:=X
END;
FOR I:=1 TO N DO
Form1.StringGrid1.Cells[i-1,0]:=IntToStr(a[i]);
end;
end.
Через StringGrid вводим массив,в Edit вводим длину массива, а затем нажимаем кнопку и массив сортируется.