Отсортировать компоненты по возрастанию. Файлы.

program lab5v17;
 
var
  F, G: file of real;
  i, j: integer;
  km, k: real;
 
begin
  assign(F, 'File.dat');
  assign(G, 'fileG.dat');
  rewrite(F);
  writeln('Введите целые числа для файла F'); read(j);
  for i := 1 to j do
  
  begin
    K := random(1, 100);
    write(k:4);
    write(F, k);
  end;
  
  close(F);
  rewrite(G);
  reset(F);
  {  while not eof(F) do
  
   read(F, k);
  
   write(G,km);
   seek(F, i + 1);
  
     if k < km then
       write(G, k); }
  
  close(F);
  close(G);
  reset(G);
  writeln;
  writeln('Файл G состоит из компонент:');
  while not eof(G) do
  begin
    read(G, k);
    write(k, ' ');
  end;
  close(G);
end.

program lab5v17;
uses crt;
var
  f,g: file of real;
  n,i,j: integer;
  a,b,x: real;
 
begin
  assign(F, 'File.dat');
  assign(G, 'fileG.dat');
  rewrite(F);
  rewrite(G);
  write('Сколько чисел ввести в файл F  n=');
  read(n);
  for i := 1 to n do
   begin
    a := 100*random;
    write(f,a);
  end;
writeln('Исходный файл F:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a:0:2,' ');
  write(g,a);
 end;
close(f);
writeln;
reset(g);
for i:=0 to filesize(g)-2 do
for j:=i+1 to filesize(g)-1 do
  begin
    seek(g,i);
    read(g,a);
    seek(g,j);
    read(g,b);
    if a>b then
      begin
       x:=a;
       a:=b;
       b:=x;
       seek(g,i);
       write(g,a);
       seek(g,j);
       write(g,x);
      end;
   end;
close(g);
reset(g);
writeln('Файл G состоит из компонент:');
while not eof(G) do
  begin
    read(G,a);
    write(a:0:2,' ');
  end;
close(G);
end.