Programm Selectionsort-Programm erstellen für Schule

[cobi23]

Danke für die Antwort, aber vorstellen was ich machen soll kann ich mir nicht. Könntest du mir sagen wie man die Zufallszahlen ins Memo bekommt? Ich möchte 6 zufällige Zahlen per Knopfdruck auf das erste Memo bekommen und diese dann mittels eines weiteren diese dann ordnen.

Ich habe versucht ein Prozedur einzufügen, irgendwie gelingt mir das nicht.

Code:

unit USelect;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Selectionsort(var A: array [1..6] of Integer);
  private
    { private declarations }
    A: array (1..6) of Integer;
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }
procedure SelectionSort(var A: array of Integer);
var
  i, j: Integer;
  pos, temp: Integer;
begin
  for i := 1 to 6 - 1 do
  begin
    pos := i;
    for j := i + 1 to 6 do
    begin
      if A[j] < A[pos] then
        pos := j;
    end;

    temp := A[i];
    A[i] := A[pos];
    A[pos] := temp;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  randomize;
end;






end.

Es kommt folgende Fehlermeldung " uselect.pas(23,42) Fatal: Syntax error, "OF" expected but "[" found
"