блок-схема для работы с массивами. delphi.

[Duff-man]

Необходима блок-схема, сдавать через 6 с половиной часов(
Дан массив T(K,L), K=<100, L=<100, (заполнять массив T по строкам). Сформировать одномерный массив R, в который записываются все отрицательные элементы Массива Т подряд.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    StringGrid1: TStringGrid;
    Button3: TButton;
    Button4: TButton;
    StringGrid2: TStringGrid;
    Label2: TLabel;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
Var
K,L:Integer;
begin
 K:=StrToInt(Edit1.Text);
 L:=StrToInt(Edit2.Text);
 StringGrid1.ColCount:=K+1;
 StringGrid1.RowCount:=L+1;


end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;




procedure TForm1.Button3Click(Sender: TObject);
Var
K,L,n,S,i,j:Integer;
C:array[1..100,1..100] of real;
begin
K:=StrToInt(Edit1.Text);
L:=StrToInt(Edit2.Text);
 n:=1;
for j := 1 to L do
 begin
  for i := 1 to K do
    begin
         C[i,j]:=StrToFloat(StringGrid1.Cells[i,j]);
      if C[i,j]<0 then
      StringGrid2.Cells[n,1]:=FloatToStr(C[i,j]);
      n:=n+1;

    end;
  end;
 
end;

procedure TForm1.Button4Click(Sender: TObject);
     var
 i: Integer;
 begin
 for i:=0 to StringGrid1.RowCount do
 StringGrid1.Rows[i].Clear;
 for i:=0 to StringGrid2.RowCount do
 StringGrid2.Rows[i].Clear;

 end;


end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[demeros]

Блок-схема чего?