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.

препод сказал не правильно нужно записать массив одельно в файл и сделать программу которая запишит ,а потом сделать программу что он взял этот массив и сделал тоже самое что и тут.
Если чесно не понял что хочет препод зачем 2 программы и для чего.

[cleac]

Скажи задачу, я не могу понять, что тебе нужно после выполнения этого кода.
А преподы, они такие =)

[yzen]

Скинь лучше условие

[kinwood]

как я понял нужно сделать как 2 пример только непойму как.

[cleac]

А среду скажешь? Чтобы я дельфовских функций преобразование строка-число не напихал

[cleac]

Ладно, неважно, я уже сделал. Принимай код.
Там делать нужно было по 3-му примеру

[cleac]

Записывалка в файл.