Lazarus (Работа с динамическими массивами)

[Dionis46]

Недавно начал изучать,подскажите почему ошибки и в чем собственно проблема.заранее спасибо.

unit Unit1; 

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ExtCtrls,
  Grids, StdCtrls, Buttons;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    ComboBox1: TComboBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    StringGrid3: TStringGrid;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);
begin
var
A:array of integer;
B:array of integer;
C:array of integer;
//память под массивы не выделяется
i,k,n:integer;
begin
// выделение памяти под динамические массивы А,В,С
SetLength(A,10);
SetLength(C,10);
SetLength(B,10);
//Ввод массива А
For i:=0 to High(A) do
A[i]:=strtoint(StringGrid1.Cells[i,0]);
Case ComboBox1.Itemindex of
-1:Showmessage('Задача не выбрана');
//разбиение массива А на массив положительных и отрицательных чисел
0:begin
k:=0;
n:=0;
For i:=0 to High(A) do
    if A[i]<>0 then
       if A[i]>0 then begin
                      C[k]:=A[i];
                      k:=k+1;
                      end;
                 else
                      begin
                      B[n]:=A[i];
                      n:=n+1;
                      end
end;
//разбиение массива А на массив четных и нечетных чисел
1:begin
StringGrid2.Clean;  //очистить StringGrid-ы
StringGrid3.Clean;
k:=0;
n:=0;
For i:=0 to High(A) do
      if A[i] mod 2=0 then begin
                      C[k]:=A[i];
                      k:=k+1;
                      end
                 else
                      begin
                      B[n]:=A[i];
                      n:=n+1;
                      end;
end;
end;
//вывод массивов
For i:=0 to k-1 do
StringGrid2.Cells[i,0]:=inttostr(C[i]);
 For i:=0 to n-1 do
StringGrid3.Cells[i,0]:=inttostr(B[i]);
//чтобы освободить память, занимаемую динамическими массивами, надо присвоить их //идентификаторам значение nil
A:=nil;
B:=nil;
C:=nil;
end;
initialization
  	{$I unit1.lrs}
end.

unit1.pas(42,1) Error: Illegal expression
unit1.pas(43,1) Fatal: Syntax error, ";" expected but "identifier A" found

[whatever]

Ну так посмотри на 42 строку. Нафига ты begin перед var'ом поставил? Убери его. Дальше не проверял.

[Dionis46]

ой, спасибо огромное