Что не правильно? Пожалуйста скажите.

[TeddyVlad]

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    strngrd1: TStringGrid;
    strngrd2: TStringGrid;
    btn1: TButton;
    btn2: TButton;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
var i:Integer;
begin
 for i:=0 to 10 do
 strngrd1.Cells[0,i]:=IntToStr(Random(100));
end;

procedure TForm1.btn2Click(Sender: TObject);
var i, m1,n1,sp,k,a:Integer;
begin
for i:=0 to 10 do
begin
  m1:=a(i); n1:=i;
  for k:=0 to 10 do
  begin
    if a(k)<m1 then
    begin
      m1:=a(k);
      n1:=k;
    end;
  end;
  sp:=a(n1);
  a(n1):=a(i);
  a(i):=sp;
end;

end;

end.

[Аватар]

А что это - сортировка по колонке? btn2Click в топку. Сортировка это по колонке или что-то мистическое, не важно, в топку в любом случае

[TeddyVlad]

Сообщение от Аватар

А что это - сортировка по колонке? btn2Click в топку. Сортировка это по колонке или что-то мистическое, не важно, в топку в любом случае

Нужно задать массив случайных чисел в stringgrid1. Затем отсортировать этот массив по возрастанию и вывести в stringgrig2.

[p51x]

a:Integer;

a(k);

Что это по вашему?

[Stilet]

Что не правильно?

Текст ошибки сам приведешь или будем угадывать?