Pascal одномерный массив

[kinwood]

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.

теперь чтоб он записал это все как в 3

[Serge_Bliznykov]

А в чём, собственно, вопрос ?
Что у Вас не получается?

[Sciv]

Что у Вас не получается?

насколько я понял, ему работа с файлами нужна )