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

program mtx;
uses crt;
const n=3;
var a: array [1..n,1..n] of integer;           
    i,j,x,y: integer;
    refl,irefl,simetr: boolean; 
    f: text;
begin
assign(f,'d:\numb.txt');              
reset(f);                             
writeln ('Заполняем матрицу');
while not (eof(f)) do                 
      begin
      read(f,x);                     
      readln(f,y);                   
      a[x,y]:=1;                     
      end;
for i:=1 to n do                     
    begin
    for j:=1 to n do
        write(a[i,j]:4);           
    writeln;
    end;
for i:=1 to n do                      
    begin
    for j:=1 to n do
        begin
        if (i=j) then
           begin
           if (a[i,j]=1) then refl:=true else refl:=false;  
           if (a[i,j]=0) then irefl:=true else irefl:=false; 
           end;
        if (a[i,j]=a[j,i]) then simetr:=true else simetr:=false; 
        end;
    end;
writeln ('Матрица обладает свойствами:'); 
if refl then writeln ('рефлексивность');
if irefl then writeln ('иррефлексивность');
if simetr then writeln ('симметричность’);
close(f);                                  
end.