[Delphi] Программирование с массивами

[GaRRRiK]

Дан массив из k символов. Вывести на экран сначала все цифры, входящие в него, а затем все остальные символы, сохраняя при этом взаимное расположение символов в каждой из этих двух групп.
Задачка на Delphi
У меня такой код, но выводит почему то не так как надо, иправте пожалуста.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Label1: TLabel;
    Label4: TLabel;
    //procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
var
 i: integer;
 s: array[1..10] of char;
begin
  For i:=1 to 80 do
  if S[i] in ['0'..'9'] then Label3.Caption:=S[i];
  For i:=1 to 80 do
  if not (S[i] in ['0'..'9']) then Label1.Caption:=S[i];
end;

end.

[veniside]

1) объявите константу k = 10 (или 80) и не путайтесь:

 s: array[1..10] of char;
begin
  For i:=1 to 80 do

2) массив S[] содежит мусор при входе в Button1Click()

3) если хотим вывести не последний символ, а всю цепочку:

Label3.Caption:= Label3.Caption + S[i];

4) зачем гонять 2 одинаковых цикла, можно обойтись одним:

For i:=1 to k do
  if S[i] in ['0'..'9'] then Label3.Caption:=Label3.Caption + S[i]
  else
    Label1.Caption:=Label1.Caption + S[i];

[GaRRRiK]

Сообщение от veniside

1) объявите константу k = 10 (или 80) и не путайтесь:

 s: array[1..10] of char;
begin
  For i:=1 to 80 do

2) массив S[] содежит мусор при входе в Button1Click()

3) если хотим вывести не последний символ, а всю цепочку:

Label3.Caption:= Label3.Caption + S[i];

4) зачем гонять 2 одинаковых цикла, можно обойтись одним:

For i:=1 to k do
  if S[i] in ['0'..'9'] then Label3.Caption:=Label3.Caption + S[i]
  else
    Label1.Caption:=Label1.Caption + S[i];

Спасибо, а как сделать произвольные символы и числа в массиве , а то при нажатии выводит одни и те же значения

[veniside]

> Дан массив из k символов.

это из вашего задания. Массив дан. Свыше.
Обычно, "свыше" эмулируют рендомом:

for i := 1 to k do
  S[i] := char(32 + Random(127 - 32));

а так у вас щас там мусор, как я и писал в пункте 2.

[GaRRRiK]

Спасибо за помощь