Внешняя сортировка бинарного файла (чтение после конца файла невозможно) - Pascal - Ответ 6283870

{Вариант 21.
Создать бинарный файл, содержащий натуральные числа, величина которых не 
превосходит 10^9, заполнив его случайной информацией. Если в файле есть хотя бы 
одно трехзначное число, все цифры которого одинаковы, упорядочить файл по 
невозрастанию. Имя исходного файла, имя упорядоченного файла и размер исходного 
файла программа должна получать через командную строку.}
program lab14;
 
{Аргументы коммандной строки: имя исходного файла, имя выходного файла,
размер исходного файла}
 
 
{Вывод бинарного файла на экран}
procedure showBinFile(filename: string); 
var f : file of Integer;
    n: Integer;
begin
    assign(f, filename);
    reset(f);
    writeln(filename, ':');
    while not Eof(f) do begin
        read(f, n);
        write(n, ' ');
    end;
    writeln('');
    close(f);
end;
 
{Проверка, что все цифры числа равны или различны}
function EqualDigits(n: Integer): Boolean;
var one: Integer;
    two: Integer;
    three: Integer;
begin
    n := abs(n);
    one := (n mod 100) mod 10;
    two := (n mod 100 - (n mod 100) mod 10) div 10;
    three := (n - n mod 100) div 100;
    EqualDigits := (one = two) and (two = three);
end;
 
var file_in:    file of LongInt;
    file_out:   file of longint;
    check: Boolean;
    size: Integer;
    i,j: LongInt;
    x,y: LongInt;
    n: Integer;
begin
    assign(file_in, paramstr(1));   reset(file_in);
    assign(file_out, paramstr(2));  rewrite(file_out);
    size := StrToInt(paramstr(3));
    check := false;
    
    {Заполнение файла натуральными числами}
    randomize;
    while (size > 0)  do begin
        n := random(1000);
        if n > 0 then begin
            write(file_in, n);
            dec(size);
        end;
    end;
    write(file_in, 111);
    
    {Проверка условия: есть ли в файле трехзначное число,
    состоящее из одинаковых цифр}
    reset(file_in);
    repeat
        read(file_in, x);
        if ((x >= 100) and (x <= 999)) and EqualDigits(x) then 
            check := true;
        write(file_out, x);
    until eof(file_in);
    
    {Сортировка}
    reset(file_out);
    if check then begin
        for i:=0 to filesize(file_out)-1 do
            for j:=i+1 to filesize(file_out) do begin
                seek(file_out, i); read(file_out, x);
                seek(file_out, j); read(file_out, y);
                if x < y then begin
                    seek(file_out, i); write(file_out, y);
                    seek(file_out, j); write(file_out, x);
                end;
            end;
    end;
 
 
close(file_in); 
close(file_out);
 
ShowBinFile(paramstr(1));
ShowBinFile(paramstr(2));
end.