Внешние сортировки!!!

  Seek(fp, 1); 
  Read(fp,x);

Seek(fp, 1); 
Read(fp,x);
Seek(fp, 2); 
Read(fp,y);

Seek(fp, 1); 
Write(fp,y);
Seek(fp, 2); 
Write(fp,x);

program Celection_Sort;
uses crt;
const N=13;
var
f:text;
A:array [1..N] of integer;
i,j,t,min:integer;
BEGIN
     clrscr;
      ASSIGN(f,'d:\1.txt');
   reset(f);
   for i:=1 to n do
   begin
       Read(f,a[i]);
   end;
   Close(f);
   writeln('массив A(',N,'):');
   for i:=1 to N do write (A[i]:5);
     for i:=1 to N-1 do
     begin
          min:=i;
          for j:=i+1 to N do
              if A[min]>A[j] then
                   min:=j;
          t:=a[i];
          a[i]:=a[min];
          a[min]:=t;
 
     end;
     writeln;
     writeln(' отсортированный массив A(',N,'):');
      for i:=1 to N do write(a[i]:5);
     readkey;
END.

uses crt;
var
f:file of integer;
i,j,s,min:integer;
a:array [1..1000]of integer;
BEGIN
     clrscr;
     assign (f,'d:\1.txt');
     reset (f);
     {for i:=0 to 10 do}
     WHILE not eof(f) do
     begin
          seek(f,i); read(f,min);
          WHILE not eof(f) do
          seek(f,j); read(f,s);
          if min>s then
          seek (f,i); write(f,s);
          seek (f,j); write(f,min);
     end;
     close(f);
     readkey;
END.

uses crt;
var
f:file of integer;
i,j,a,b,min:integer;
BEGIN
     clrscr;
     assign (f,'k:\1.txt');
     reset (f);
     for i:=0 to 9 do
     begin
          min:=i;
          for j:=i+1 to 10 do
          seek(f,min); read(f,a);
          seek(f,j); read(f,b);
          if a>b then
          min:=j;
          seek (f,i); write(f,b);
          seek (f,j); write(f,a);
     end;
     close(f);
     readkey;
END.

uses crt;
var
f:file of integer;
i,j,a,b,min:integer;
begin
  clrscr;
  assign (f,'k:\1.txt');
  reset (f);
  for i:=0 to 9 do
  begin
    min:=i;
    for j:=i+1 to 10 do
      seek(f,min);  {от i+1 до 10 раз считываем одни и теже данные}
    read(f,a);   {все остальные моменты объяснять не буду}
    seek(f,j); 
    read(f,b);
    if a>b then
      min:=j;
    seek (f,i); 
    write(f,b);
    seek (f,j); 
    write(f,a);
  end;
  close(f);
  readkey
END.