Составить блок схему по программе

Program freedom;
var
 a: array[0..15, 0..15] of char;
 i,j,n,k,l,m:integer;
s:string;
di,dj:integer;
begin
  assign(input, 'C:\Users\trollll\Desktop\kursach\input.txt');
  reset(input);
  assign(output, 'C:\Users\trollll\Desktop\kursach\output.txt');
  rewrite(output);
readln(s);
n:= 5;
for i:=1 to 2*n+1 do
for j:=1 to 2*n+1 do a[i,j]:='/';
for i:=0 to 2*n+2 do begin
a[0,i] := '\';
a[2*n+2,i] := '\';
end;
for j:=0 to 2*n+2 do begin
a[j,0] := '\';
a[j,2*n+2] := '\';
end;
di := 1;
dj := 0;
i := 0;
j := 2*n+1;
k := (2*n+1)*(2*n+1);
    while k >= 0  do begin
      if (a[i+di,j+dj] <> '/') then begin
         if (di = 0) and (dj = 1) then begin
         di := 1;
         dj := 0;
     end else
         if (di=1) and (dj=0) then begin
     di:=0;
     dj:=-1;
     end else
         if (di=0) and (dj=-1) then begin
     di:=-1;
     dj:=0;
     end else
         if (di=-1) and (dj=0) then begin
     di:=0;
     dj:=1;
    end;
        end else begin
        a[i+di,j+dj]:=s[k];
        k := k - 1;
        i := i + di;
        j := j + dj;
        end;
        writeln('1');
      end;
for i:=1 to 2*n+1 do begin
    for j := 1 to 2*n+1 do write(a[i,j]:2);
    writeln;
end;
end.