Нужно составить блок-схему очень нужно

program lab3;
var x:array [1..10] of integer;
i,min,max:integer;
begin
for i:=1 to 10 do begin writeln('введитие x[',i,']');
readln(x[i]);end;
min:=x[1];
max:=x[1];
for i:=2 to 10 do begin
if x[i]>max then max:=x[i];
if x[i] end;
writeln(min*max)
end.

Const
n=10; m=7;
var
j,i,i_max,s,max:integer;
a:array[1..n,1..m]of integer;
begin   
 for i:=1 to n do     
    begin         
           writeln; s:=0;i_max:=i;max:=-32768;             
           for j:=1 to m do               
                begin                       
                   a[i,j]:=random(100)-50;                       
                   write(a[i,j]:4);                     
                          s:=s+a[i,j];               
               end;               
                 writeln('i: ',i,'  ',s);            
                    if s>max then             
                               begin               
                                    i_max:=i;               
                                    max:=s;             
                               end;       
                end;
  writeln; 
   writeln(i_max,'  s: ',max);
end.

         Если ошибся,поправьте.

                                                  Начало

                                

                                                 Вывод(указываем переменные,A,B.ну и т.д.)

 

               Да                               Условие(к примеру:A>=B)          Нет                                                                            

 

         Если х=A+B                                                                                Иначе х=A/B

 

                                               Ну и дальше вывод,и конец.

                                       Вывод

                                       

                                       Конец.