Разработать программу поиска и сортировки элементов массива на языке Паскаль.

program ds;
uses crt;
const t='SORTIROV.txt';
var f: file of real;
s:real;min:real;
procedure out_fil;
var a:array [1..20] of real;
i, j:integer; s1:string;
 
   begin
               assign(F,t);
 
               i:=1;
               repeat
                     writeln ('Введите число или * (признак конца ввода)');
                     readln (s1);
                     val(s1,s,j);
                            if s1<>'*' then
                                                begin
                                                     a[i]:=s;
                                                     i:=i+1;
                                                end;
               until s1='*';
               rewrite(f);
                for j:=1 to i-1 do
                              write (F,a[j]);
 
               close(f);
          end;
{--------------------------------------------------------------}
procedure input_fil;
          begin
               assign (f,t);
               reset(f);
               read (f,s);
               min:=s;
               repeat
                     read (f,s);
                     if s< min then min:=s;
                     writeln (s:4:2,'  ');
               until EOF(f);
               close(f);
          end;
{----------------------------------------}
begin
clrscr;
gotoxy (15,8);
writeln ('Программу разработал Рифов Роман');
gotoxy (10,10);
{out_fil;}
writeln ('Чтение из файла');
clrscr;
input_fil;
writeln('min= ', min:4:0);
gotoxy (10,20);
writeln('Нажмите любую клавишу');
readln;
end.