uses crt;
const
  n=10;
var
  a:array[1..n]of real;
  b:real;
  i:integer;
  j:integer;{специально добавил}
begin
  {создаем массив}
  for i:=1 to n do
    begin
      a[i]:=10*random-5;
      write(a[i]:7:3);
    end;
  writeln;
  {контрольные пару нулей}
  a[4]:=0;
  a[8]:=0;
  writeln('Begin:');
  for i:=1 to n do
    write(a[i]:7:3);
  writeln;
  i:=1;
  {глупая сортировка}
  while i<n do
    begin
      if ((a[i]<0)and(a[i+1]>=0))or((a[i]=0)and(a[i+1]>0))then
        begin
          b:=a[i];
          a[i]:=a[i+1];
          a[i+1]:=b;
          {специально добавил}
          for j:=1 to n do
            begin
            TextColor(7);
            if (j=i)or(j=(i+1))then TextColor(15);
            write(a[j]:7:3);
            end;
          writeln;
          i:=1;
        end
        else
        i:=i+1;;
    end;
  {вывод результата}
  writeln('Stop:');
  for i:=1 to n do
    write(a[i]:7:3);
  readln;
end.