Блок схемы

 Program Massiv;
 var
    a:array[1..10]of integer;
    i:integer;
  begin
    for i:=1 to 10 do
      begin
        a[i]:=random(50)-25;
        write(a[i]:4);
      end;
    i:=0;
    writeln;
    repeat
      repeat
        inc(i);
      until(i>=10)or(a[i]>0);
      while (i>1)and(a[i-1]<=0)and(i<10)do
        begin
          a[i]:=a[i]+a[i-1];
          a[i-1]:=a[i]-a[i-1];
          a[i]:=a[i]-a[i-1];
          dec(i);
        end;
    until i>=10;
    writeln;
    for i:=1 to 10 do
      write(a[i]:4);
    readln;
  end.

 Program Elmassiv;
var
i, j, ind: integer;
max, temp: real;
a: array[1..n, 1..m] of real;
begin
randomize;
 writeln('Massiv 1');
  for i:= 1 to n do  
  begin
    for j:= 1 to m do
    begin
    a[i, j]:= Random(200) / 10 - 10;
    write(a[i,j]:8:2);
    end;
  writeln;
  end;
 
max:= a[1,1]; ind:= 1; 
  for i:= 1 to n do
    for j:=1 to m do
    begin
    if a[i,j] > max then
      begin
      max:= a[i,j];
      ind:= j;
      end;
    end;
 if ind <>2 then  
 begin
 for i:= 1 to m do
   begin
   temp:= a[i, 2];
   a[i,2]:= a[i, ind];
   a[i,ind]:= temp;
   end;
 end;
 writeln('Max = ', max:8:2);  
 writeln('Massiv 2');
  for i:= 1 to n do
  begin
    for j:= 1 to m do write(a[i,j]:8:2);
  writeln;
  end;
readln;
 
end.