Исправление кода...

[SwIm]

Народ скажите, что не правильно в программе, если можно напишите как правильно.
Код:

unit MainUnit;
 
interface
 
uses
  Windows, SysUtils, Classes, Controls, Forms, StdCtrls;
 
type
  TMainForm = class(TForm)
    txtResult: TMemo;
    procedure FormCreate(Sender: TObject);
  end;
 
var
  MyArray: Array of Integer;
  MainForm: TMainForm;
 
implementation
 
{$R *.dfm}
 
procedure TMainForm.FormCreate(Sender: TObject);
var
  i, j: Integer;
begin
  Randomize;
  txtResult.Text := '';
  txtResult.Lines.Add('');
  // Задаю количество элементов
  SetLength(MyArray, 20);
  // Заполняю массив случайными числами
  For i := 0 to High(MyArray) do
    begin
      MyArray[i] := Random(256) - 128;
      If i <> High(MyArray) then
        txtResult.Lines.Strings[txtResult.Lines.Count-1] :=
          txtResult.Lines.Strings[txtResult.Lines.Count-1] + IntToStr(MyArray[i]) + ', '
      Else
        txtResult.Lines.Strings[txtResult.Lines.Count-1] :=
          txtResult.Lines.Strings[txtResult.Lines.Count-1] + IntToStr(MyArray[i]) + ';'
    end;
  // Изменяю массив по условиям задачи
  txtResult.Lines.Add('');
  txtResult.Lines.Add('');
  i := 0;
  While i <= High(MyArray) do
    begin
      If MyArray[i] < 0 then
        begin
          For j := i to High(MyArray) do
            MyArray[j] := MyArray[j + 1];
          SetLength(MyArray, High(MyArray));
        end
      Else
        begin
          MyArray[i] := MyArray[i] + 2;
          Inc(i);
        end;
    end;
  For i := 0 to High(MyArray) do
    begin
      If i <> High(MyArray) then
        txtResult.Lines.Strings[txtResult.Lines.Count-1] :=
        txtResult.Lines.Strings[txtResult.Lines.Count-1] + IntToStr(MyArray[i]) + ', '
      Else
        txtResult.Lines.Strings[txtResult.Lines.Count-1] :=
        txtResult.Lines.Strings[txtResult.Lines.Count-1] + IntToStr(MyArray[i]) + ';'
    end;
end;
 
end.

[spamer]

А, что она должна хоть делать то? Код вроде как рабочий, в смысле компилится нормально.

[SwIm]

задача такая:дан массив А (1,20) из которого удаляют все отрицательные, а положительные увеличиваются на 2

а код дает ошибку

[spamer]

Вобщем вот:

var
  Form1: TForm1;
  MyArray: Array of Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: Integer;
begin
  Randomize;
  txtResult.Text := '';
  txtResult.Lines.Add('');
  // Çàäàþ êîëè÷åñòâî ýëåìåíòîâ
  SetLength(MyArray, 20);
  // Çàïîëíÿþ ìàññèâ ñëó÷àéíûìè ÷èñëàìè
  For i := 0 to High(MyArray) do
    begin
      MyArray[i] := Random(256) - 128;
      If i <> High(MyArray) then
        txtResult.Lines.Strings[txtResult.Lines.Count-1] :=
          txtResult.Lines.Strings[txtResult.Lines.Count-1] + IntToStr(MyArray[i]) + ', '
      Else
        txtResult.Lines.Strings[txtResult.Lines.Count-1] :=
          txtResult.Lines.Strings[txtResult.Lines.Count-1] + IntToStr(MyArray[i]) + ';'
    end;
  // Èçìåíÿþ ìàññèâ ïî óñëîâèÿì çàäà÷è
  txtResult.Lines.Add('');
  txtResult.Lines.Add('');
  i := 0;
  While i <= High(MyArray) do
    begin
      If MyArray[i] < 0 then
        begin
        for j:=i to High(MyArray) do
            MyArray[j] := MyArray[j + 1];
          SetLength(MyArray, High(MyArray));
        end
      Else
        begin
          Inc(i);
        end;
    end;
  For i := 0 to High(MyArray) do
    begin
      If i <> High(MyArray) then
        txtResult.Lines.Strings[txtResult.Lines.Count-1] :=
        txtResult.Lines.Strings[txtResult.Lines.Count-1] + IntToStr(MyArray[i]+2) + ', '
      Else
        txtResult.Lines.Strings[txtResult.Lines.Count-1] :=
        txtResult.Lines.Strings[txtResult.Lines.Count-1] + IntToStr(MyArray[i]+2) + ';'
    end;

end;

end.