Нужно построить схемы алгоритмов методами Дамке и Насси-Шнейдермана

Program kont1;
var y:array [1..20] of real;
x:array [1..20] of real;
k:array[1..20] of integer;
g:array[1..20] of integer;
e,i,j,ch,zn:integer;
Begin
k[1]:=1;
g[1]:=2;
for i:=1 to 20 do 
  begin
    writeln('Введите x[',i,']');
    readln(x[i]);
  end;
writeln('Введите степень точности е');
readln(e);
for i:=2 to 20 do 
  begin {числитель и знаменатель}
    k[i]:=k[i-1]*(k[i-1]+2);
    g[i]:=g[i-1]*(g[i-1]+2);
  end;
for i:=1 to 20 do 
  begin
    ch:=ch+k[i];
    zn:=zn+k[i];  
  end;
for i:=1 to 20 do
  y[i]:=1+(ch/zn)*x[i];
for i:=1to 20 do
writeln('y[', i, ']= ',y[i]:e+6:e);
End.

program CompMin;
 
type TComplex = record
  Re: real;
  Im: real;
  end;
 
var a: TComplex;
     Min: real;
     i: integer;
     aMin: TComplex;
 
function CAbs(C: TComplex): real;
begin
CAbs := sqrt(C.Re*C.Re + C.Im*C.Im);{modul}
end;
 
begin
writeln('Введите 1. Действительную часть; 2. Мнимую часть');
readln(a.Re, a.Im);{vvod dannyh}
Min := CAbs(a);
aMin := a;
for i := 2 to 10 do
  begin
  readln(a.Re, a.Im);
  if CAbs(a) < Min then
    begin
    Min := CAbs(a);
    aMin := a;
    end;
  end;
writeln('Действительная часть минимального числа: ', aMin.Re,' Мнимая часть минимального числа: ',aMin.Im);
end.