Программирование

[Валентина 23]

Помогите сделать блок-схему по коду программы . Program Kinetika;
Uses GraphABC;
Type mas = array[1..1001, 1..3] of real;
Var C:mas;
i, j, x,y,n,k,d,xn,xk,yn,yk,xGR,yGR,xGR1, yGR1,color,o: integer;
s:string;
CA,CB,K1,dt,t,Mx,My:real;

procedure Setka(x,y,d,n,k:integer);
Var i, j: integer;
Begin
SetPenWidth(3);
rectangle(x-3,y-3,x+d*5+154,y+d*10+14);
SetPenWidth(1);
SetPenStyle(psdot);
for j:=0 to n-1 do
begin
for i:=0 to n do
begin
x:=54+i*32;
y:=30+j*41;
Rectangle(x,y,x+33,y+42);
end;
end;
end;

Procedure Osi;
Var i: integer;
begin
TextOut(150,10,' Изменение концентрации ');
o:=0;
for i:=1 to 20 do
begin
if 20 mod 2 = 0 then
o:=o+2;
{i:= i+1;}
Str(o,s);
TextOut(45+i*18,445,s);
end;
for i:=0 to 1001 do
begin
Str(i*10,s);
TextOut(25,435-i*42,s);
end;
end;

Procedure Graphic;
Var i, j: integer;
color: System.Drawing.Color;
begin
xn:=54;
xk:=710;
yn:=60;
yk:=444;
K1:=0.4; //- Индивидуально для каждого задания по № варианта
CA:=100;
CB:=0;
t:=0;
dt:=0.1;
for i:=1 to 101 do
begin
t:=t+0.1;
C[i,1]:=t;
CA:=CA+(-K1*CA)*dt; //Кинетические уравнения для реакции
CB:=CB+(K1*CA)*dt; //А → B K1 - константа скорости
C[i,2]:=CA;
C[i,3]:=CB;
end;
SetPenWidth(2);
SetPenStyle(psSolid);
Mx:=(xk-xn)/(20-1);
My:=(yk-yn)/(101-10);
for j:=2 to 3 do
begin
if j=2 then color:=clRed;
if j=3 then color:=clBlue;
SetPenColor(color);
for i:=1 to 100 do
begin
xGr:=xn+Round(mx*C[i,1]);
yGr:=yk-Round(my*C[i,j]);
Circle(xGr,yGr,3);
end;
end;
end;

Begin
SetWindowSize(500,480);
CenterWindow;
MaximizeWindow;
Setka(55,30,40,10,0);
Osi;
SetPenColor(clRed);
Graphic;
end.

[digitalis]

Помогаю. Для начала - отформатировать текст, чтобы его читать кому-нибудь захотелось - теги CODE и отступы в помощь. А потом - спросить хотя бы у тёти Вики, как это делается. https://ru.wikipedia.org/wiki/Блок-схема
А когда наступит просветление - сюда, с криком "Получилось!". Ну а если нет - мож и найдётся добрая душа, что не пошлёт во ФРИЛАНС, а накорябает этих 5..7 фигурок.
"Учиться, учиться, ещё раз, блин, повторяю - учиться! © наш Ильич