[Nostalgia]

Мне нужно с помощью Эдита ввести целочисленный масив, который должен отобразится в мемо1. потом этот масив должен пройти сортировку методом Шелла и отобразится в Мемо2. я новичек и не уверена, что правильно работаю с масивом и считываю его с Эдита как масив, а не как обычный текст. Пожалуйста, исправьте ошибки или укажите на них мне, чтоб я знала, что не так

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls;   const   n=7;   type   TForm1 = class(TForm)     Memo1: TMemo;     Memo2: TMemo;     Label1: TLabel;     Label2: TLabel;     Button1: TButton;     Button2: TButton;     Button3: TButton;     Edit1: TEdit;     procedure Button3Click(Sender: TObject);     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; type   SEQ=array[1..N] of integer;    procedure Sort;   var   Form1: TForm1;   i:byte;    a:SEQ; implementation   {$R *.dfm}   procedure TForm1.Button3Click(Sender: TObject); begin   Form1.Close; end;   procedure TForm1.Button1Click(Sender: TObject); var   s:Ansistring;   z:byte; begin    z:=1;    for i:=1 to n do    s:=s+Edit1.Text[i];    if Edit1.Text[i]=' ' then begin                                 a[z]:=StrToInt(s);                                  s:='';                                  z:=z+1;                               end;    Memo1.Lines.Add(Edit1.Text);   end;   procedure TForm1.Button2Click(Sender: TObject); begin   Sort;   for i:=1 to n do   Memo1.Lines.Add(inttostr(a[i])); end;     procedure Sort( var a:seq); var   d,i,t:integer;   k:boolean; begin   d:=N div 2;     begin       k:=true;       while k do         begin           k:=false;           i:=1;           for i:=1 to N-d do             begin               if a[i]>a[i+d] then begin               t:=a[i];               a[i]:=a[i+d];               a[i+d]:=t;               k:=true;             end;           d:=d div 2;   end; end; end; end; end.