Делфи 7. StringGrid

[krasy]

Необходимо ввести одномерный массив с StringGrid, отсортировать его по убыванию или возрастанию. Рябят, помогите, у меня выводится результат совсем неверный причем числа совсем не такие, которые я вводила, а миллионы

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    Label1: TLabel;
    Button1: TButton;
    Label2: TLabel;
    StringGrid2: TStringGrid;
    procedure Button1Click(Sender: TObject);
    procedure StringGrid1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var x: array[1..5] of integer;
i,j,b:integer;
STOPSORT:boolean;
begin
for j:= 1 to 4 do begin
stopsort:=true;
for i:= 1 to 5-j do 
if x[i] > x[i+1] then begin 
b:=x[i]; x[i]:=x[i+1]; x[i+1]:=b;
stopsort:=false;
 end; 
if stopsort then break;
end;
for i:=0 to 4 do
StringGrid2.Cells[i,0]:=IntToStr(x[i]);

end;

procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
case key of
#8,'0'..'9':;
#13:
if (stringGrid1.Col<stringgrid1.ColCount-1)
then stringGrid1.Col:=stringGrid1.Col+1;
else Key:=chr(0);
end;
end;

end.

[min@y™]

x: array[1..5] of integer;

это что?
ты пытаешься сортировать мусор, который содержится в неинициализированном массиве. зачем ты это делаешь?