Блок-схема

[MrVi]

помогите с блок-схемой.
Сама задача:
Составить программу для вычесления элементов матрицы С={cij} являющейся суммой матриц A={aij} и B={bij}.Каждый элемент матрицы С вцысисляется по формуле cij=aij+bij i,j=1,2,...n,причем матрица А задана,а элементы матрицы В вычисляются по формуле:
bij=aij,если aij>=0
bij=1,если aij<0
Исходные данные n=4:
A=3.0 0.0 1.0 2.0
3.0 -1.1 2.0 1.0
-1.0 3.0 2.0 1.0
1.0 3.0 2.0 -2.0

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, Vcl.Samples.Spin;
type
  TForm1 = class(TForm)
    Label1: TLabel;
    StringGrid1: TStringGrid;
    StringGrid2: TStringGrid;
    StringGrid3: TStringGrid;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    CalcButton: TButton;
    RandomButton: TButton;
    ClearButton: TButton;
    SpinEdit1: TSpinEdit;
    Label5: TLabel;
    ButtonB: TButton;
    procedure CalcButtonClick(Sender: TObject);
    procedure RandomButtonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure ClearButtonClick(Sender: TObject);
    procedure SpinEdit1Change(Sender: TObject);
    procedure ButtonBClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ButtonBClick(Sender: TObject);
var
  i,j:word;
begin
for i := 0 to SpinEdit1.Value-1 do
  for j := 0 to SpinEdit1.Value-1 do
      if StrToInt(StringGrid1.Cells[i,j])<0
        then StringGrid2.Cells[i,j]:=IntToStr(1)
        else StringGrid2.Cells[i,j]:=StringGrid1.Cells[i,j];
end;

procedure TForm1.CalcButtonClick(Sender: TObject);
var i,j:Integer;
begin
if (stringgrid1.Cells[0,0]='') or (stringgrid2.Cells[SpinEdit1.Value-1,SpinEdit1.Value-1]='') then
  begin
  Messagebox(handle,'Заполните матрицы А и Б','Внимание',MB_OK+MB_IconInformation);
  exit;
  end;
  for i:=0 to SpinEdit1.Value-1 do
   for j:=0 to SpinEdit1.Value-1 do
    stringgrid3.Cells[i,j]:=IntToStr(StrToInt(stringgrid1.Cells[i,j])+StrToInt(stringgrid2.Cells[i,j]));
end;

procedure TForm1.ClearButtonClick(Sender: TObject);
var
  i,j:word;
begin
for i := 0 to SpinEdit1.Value-1 do
  for j := 0 to SpinEdit1.Value-1 do
    begin
      StringGrid1.Cells[i,j]:='';
      StringGrid2.Cells[i,j]:='';
      StringGrid3.Cells[i,j]:='';
    end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.Left:=(Screen.Width-Form1.Width) div 2;
  Form1.Top:=(Screen.Height-Form1.Height) div 2;
end;

procedure TForm1.RandomButtonClick(Sender: TObject);
var
  i,j:word;
begin
randomize;
for i := 0 to SpinEdit1.Value-1 do
  for j := 0 to SpinEdit1.Value-1 do
      StringGrid1.Cells[i,j]:=IntToStr(random(21)-10);
end;
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
ClearButton.Click;
StringGrid1.ColCount:=SpinEdit1.Value;
StringGrid1.RowCount:=SpinEdit1.Value;
StringGrid2.ColCount:=SpinEdit1.Value;
StringGrid2.RowCount:=SpinEdit1.Value;
StringGrid3.ColCount:=SpinEdit1.Value;
StringGrid3.RowCount:=SpinEdit1.Value;
end;
end.

[MrVi]

Кто знает,как выгледит блок схема

[MrVi]

ПОдскажите пожалуйста,хоть что-нибудь

[MrVi]

МОЖЕТ кто нарисовать,пожалуйста!!!

[denisbrain]

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

МОЖЕТ кто нарисовать,пожалуйста!!!

Блок схема во вложении