Составить блок-схему по коду - Turbo Pascal

Формулировка задачи:

Приветствую. Ребята, помогите, написал код, но не получается блок-схему сделать. Точнее уверен в неправильно своей. Вот код:

program ex;
uses crt;
var i,j,g,x1,x2:integer;
function zada4a:integer;
begin
for i:=1 to 5 do
x1:=(i+5)+x1;
for j:=1 to 4 do
x2:=x2*(j+2);
g:=x1+x2;
zada4a:=g;
end;
begin
clrscr;
x2:=1;
writeln('G = ',zada4a);
readln;
end.

Решение задачи: «Составить блок-схему по коду»

Листинг программы

program ex;
uses crt;
function G:integer;
var i,x1,x2:integer;
begin
x1:=0;
for i:=1 to 5 do
x1:=(i+5)+x1;
x2:=1;
for i:=1 to 4 do
x2:=x2*(i+2);
G:=x1+x2;
end;
begin
clrscr;
writeln('G = ',G);
readln;
end.

Объяснение кода листинга программы

В данном коде используется язык программирования Turbo Pascal.

Создается функция G:integer, которая будет выполнять вычисления.
Объявляются три переменные: i, x1 и x2, которые будут использоваться для выполнения вычислений.
Инициализируется переменная x1 значением 0.
Запускается цикл for, который выполняется 5 раз. Внутри цикла значение переменной i увеличивается на 1, а значение переменной x1 увеличивается на (i+5) и затем присваивается переменной x1.
После завершения цикла for, значение переменной x1 будет равно 15.
Инициализируется переменная x2 значением 1.
Запускается цикл for, который выполняется 4 раза. Внутри цикла значение переменной i увеличивается на 1, а значение переменной x2 увеличивается на (i+2) и затем присваивается переменной x2.
После завершения цикла for, значение переменной x2 будет равно 10.
Вычисляется сумма значений переменных x1 и x2, и она присваивается переменной G.
Выводится сообщение 'G = ' и значение переменной G.
Программа завершается, ожидая ввода пользователя.