Блок-схема

[Maserati]

Помогите сделать блок-схему
program zadanie3;
type monomial = record
degree, k : integer;
end;
type polynom = array[0..100] of monomial;
var pol, new : polynom;
pol_n, new_n, i, maxdegree : integer;
begin
write ('Введите количество одночленов многочлена: ');
read (pol_n);
maxdegree := 0;
for i:=1 to pol_n do
begin
write ('Введите одночлен и его степень ', i, ': ');
read (pol[i].k, pol[i].degree);
if pol[i].degree > maxdegree then
maxdegree := pol[i].degree;
end;
new_n := maxdegree;
for i:=0 to maxdegree do
new[i].degree := i;
for i:=1 to pol_n do
inc(new [pol[i].degree].k, pol[i].k);
write ('Новый многочлен: ');
write ('(', new[new_n].k, ')*x^', new[new_n].degree);
for i:=new_n-1 downto 1 do
if new[i].k > 0 then
write ('+(', new[i].k, ')*x^', new[i].degree);
writeln;
end.

[ZX Spectrum-128]

http://alglib.sources.ru/aboutbls.php