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

[Tolian92]

procedure TForm3.Button4Click(Sender: TObject);
var
a,d:string;
b,x,y,f:integer;
 i,c,c1:integer;
 label m1;
begin

  Form2.Table5.First;
  while not Form2.Table5.Eof do begin
          Form2.table5.EDIT;
        x:=Form2.Table5.FieldByName('Watch').VALUE;

         f:=x div 2 ;
          Form2.Table5.FieldByName('Pole2').VALUE:=  f;
         Form2.Table5.Next;
 end;
Form2.Table1.First;
while not Form2.Table1.Eof do begin
    a:=Form2.Table1.FieldByName('Name_gr').VALUE;
    b:=Form2.Table1.FieldByName('Sm1').VALUE;
    Form2.Table5.First;
    while not Form2.Table5.Eof do begin
              Form2.table5.EDIT;
             If Form2.Table5.FieldByName('Name_gr').VALUE=a then  BEGIN
                        y:=Form2.Table5.FieldByName('Pole2').VALUE div b;
                        Form2.Table5.FieldByName('Para').VALUE:=y;
                        END;
              Form2.Table5.Next;
              END;
      Form2.Table1.Next;
      END;



Form2.Table1.First;
while not Form2.Table1.Eof do begin
    a:=Form2.Table1.FieldByName('Name_gr').VALUE;

    Form2.Table5.First;
    c:=0;
    while not Form2.Table5.Eof do begin
              Form2.table5.EDIT;
              If Form2.Table5.FieldByName('Name_gr').VALUE=a then
                    c:=c+Form2.Table5.FieldByName('Para').VALUE;
                Form2.Table5.Next;
                end;
             str(c,d);   form3.edit1.Text:=d;
     IF C=18  then goto m1;
      Form2.Table5.First;
      FOR i:=1 to 18-c do begin
                   Form2.table5.EDIT;
                  if Form2.Table5.FieldByName('Name_gr').VALUE=a then
                   Form2.Table5.FieldByName('Para').VALUE:=
                            Form2.Table5.FieldByName('Para').VALUE+1;
                   Form2.Table5.Next; 
                   end;
    
       m1:   Form2.Table1.Next;
        end;


 Form2.Table4.First;
  while not Form2.Table4.Eof do begin
              Form2.table4.EDIT;
 Form2.Table4.FieldByName('K_par').VALUE:=0;
  Form2.Table4.Next;
                    end;

   Form2.Table4.First;
while not Form2.Table4.Eof do begin
    a:=Form2.Table4.FieldByName('FIO_prep').VALUE;

    Form2.Table5.First;
    c:=0;
    while not Form2.Table5.Eof do begin
              Form2.table5.EDIT;
              If Form2.Table5.FieldByName('FIO_prep').VALUE=a then
                    c:=c+Form2.Table5.FieldByName('Para').VALUE;
                Form2.Table5.Next;
                end;
   
     Form2.table4.EDIT;
      Form2.Table4.FieldByName('K_par').VALUE:=c;
       Form2.Table4.Next;
        end;   


END.

[Bugrimov]

Думаю Вам дорога в раздел Фриланс.