Паскаль ABC - в заданном вещественном массиве найти минимальное значение и отсортировать элементы левее него

[kinwood]

Помогите сделать задание

[kinwood]

С меня причитается.
реально нужно сделать ,а я незнаю как=(

[Poma][a]

Program lab3;
const n=13;
type mass = array [1..n] of Real;
var i,j, min : integer; buf: Real;
const x : mass = (-4.5,-7.4,-3.7,12.9, -5.7, 21.3, 8.6 , 1.5, 2.6, 2.1, -5.8, 5.4, -3.8);

begin
 writeln(' исходный массив') ;
 for i := 1 to n do
    write(x[i] : 0 : 1, ' ');
 writeln;

 i := 1;
 while x[i]  < 0 do
        Inc (i);

 min := i;
 for i := i+1 to n do
        if (x[i] > 0) and (x[min] > x[i]) then
                min := i;
 WriteLn ('Миним ', x[min] : 0 : 1);
 Dec(min);
 for j:=1 to min-1 do
 for i:=1 to min-j do
      if x[i]<x[i+1] then
                begin
                  buf:=x[i] ;
                  x[i]:=x[i+1] ;
                  x[i+1]:=buf
                  end;
 writeln('полученный массив ');

 for i:=1 to n do
 write (x[i] : 0 : 1,' ');
 writeln;
 end.

[kinwood]

пишет нельзя присвоить левой части

[Poma][a]

Program lab3;
const n=13;
type mass = array [1..n] of Real;
var i,j, min : integer; buf: Real;
 x : mass;

begin
     x[1] := -4.5;
     x[2] := -7.4;
     x[3] := -3.7;
     x[4] := 12.9;
     x[5] := -5.7;
     x[6] := 21.3;
     x[7] := 8.6;
     x[8] := 1.5;
     x[9] := 2.6;
     x[10] := 2.1;
     x[11] := -5.8;
     x[12] := 5.4;
     x[13] := -3.8;
     
 writeln(' исходный массив') ;
 for i := 1 to n do
    write(x[i] : 0 : 1, ' ');
 writeln;

 i := 1;
 while x[i]  < 0 do
        Inc (i);

 min := i;
 for i := i+1 to n do
        if (x[i] > 0) and (x[min] > x[i]) then
                min := i;
 WriteLn ('Минимум ', x[min] : 0 : 1);
 Dec(min);
 for j:=1 to min-1 do
 for i:=1 to min-j do
      if x[i]<x[i+1] then
                begin
                  buf:=x[i] ;
                  x[i]:=x[i+1] ;
                  x[i+1]:=buf
                  end;
 writeln('полученный массив ');

 for i:=1 to n do
 write (x[i] : 0 : 1,' ');
 writeln;
 end.

[kinwood]

Inc (i);

Что это

Dec(min);

[Poma][a]

Inc (i);

=

i := i + 1

Dec(min);

=

min := min - 1

Справка от Вас прячется?

[kinwood]

ну теперь он сразу все выполнил

[Poma][a]

А Вы что хотели? Ведь ничто вводить не надо! Все необходимые исходные данные известны на момент выполнения программы