Program p1;
Type Vector=array[1..1000] of integer;
var n,i:integer;
    f:text ;
    cisla:Vector;
 
procedure Sorting (n:integer; Var x:Vector);
procedure exchange(var a,b:integer);
var c:integer; begin  c:=a; a:=b; b:=c; end;
var i:integer; swop:boolean;
begin repeat
swop:=false;
for i:=1 to n-1 do
if x[i]>x[i+1] then begin         {esli "<" togda po ubivaniiu   }
exchange(x[i],x[i+1]); swop:=true; end;
n:=n-1;
until not swop; end;
 
begin
assign(f,'f.txt'); reset(f);   n:=0;
while not eof(f) do begin
inc(n);
read(f,cisla[n]);
end;
 
writeln('Uporyadochennye komponenty faila: ');
Sorting(n,cisla);   {SORTIRUEM}
for i:=1 to n do writeln(cisla[i]);
writeln ('Rezulitat uporyadochivaniya perepisan v samom fayle - "f.txt" !!!' );
 
rewrite(f);
for i:=1 to n do writeln(f,cisla[i]);
 
close(f);
readln;
 end.