Пожалуйста начертите блок-схему

unit Unit1;
 
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids, ExtCtrls;
 
type
TForm1 = class(TForm)
StringGrid1: TStringGrid;
Button1: TButton;
StaticText1: TStaticText;
LabeledEdit1: TLabeledEdit;
StringGrid2: TStringGrid;
procedure Button1Click(Sender: TObject);
 
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
Form1: TForm1;
 
implementation
type Tmatrix=array of array of integer;
var a:tmatrix;
 
{$R *.dfm}
Function Find(N:byte):boolean;
var i,j:byte;
el:integer;
begin
el:=a[0,0];
For i:=1 to (N-1) do
For j:=1 to (N-1) do
If (a[i,j]<>el) then
begin
result:=false;
break;
end
Else
result:=true;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j,N,i1,j1:byte;
MAX,SUM:integer;
begin
try
N:=strtoint (labelededit1.Text);
except
MessageDlg('Неверные данные', mtError, [mbOK],0);
exit
end;
Setlength(a,N,N);
stringgrid1.RowCount:=N;
stringgrid1.ColCount:=N;
stringgrid2.RowCount:=N;
stringgrid2.ColCount:=N;
for i:=0 to N-1 do
for j:=0 to N-1 do
begin
a[i,j]:=round(random(3));
stringgrid1.Cells[j,i]:=inttostr(a[i,j]);
end;
If Find(N)=true then
begin
//Увеличим диагональные элементы
for i:=0 to N-1 do
a[i,i]:=2*a[i,i];
statictext1.Caption:='Элемент главной диагонали = '+inttostr(a[0,0]);
//Увеличиваем остальные элементы
for i:=0 to N-1 do
for j:=0 to N-1 do
begin
If j<>i then
a[j,i]:=a[j,i]+(a[i,i] div 2);
stringgrid2.Cells[i,j]:=inttostr(a[j,i]);
end;
end
Else
MessageDlg('Элементы не совпадают',mtinformation,[mbok],0);
Finalize(a);
end;
end.