бинарный файл, числа, подготовка к экзамену Опции

[Катюша]

В некотором бинарном файле записаны числа типа LongInt. Если в файле
есть хотя бы одно число, начинающееся цифрой 1 и содержащее цифры 2 и 3, упорядочить файл по неубыванию. Имя исходного файла и имя упорядоченного файла программа должна получать через командную строку. Не использовать массивы и динамическую память.


жду помощи =)

[Катюша]

я нашла старую программу, писала ее почти 2 года назад.. показываю ее..

но она не совсем такая, как это условие..

но похожа.. хорошая прога?

uses crt,dos;
var f1,f2:file of word;
function kratno11(x:word):boolean;
var sum:byte;
begin
	kratno11:=false;
	sum:=0;
	while x>=10 do
	begin
		sum:=sum+(x mod 10);
		x:=x div 10;
	end;
	if (sum mod 11=0) then kratno11:=true;
end;
var number,n1,n2,tmp:word;
    boolNum:boolean;
    i,j,k:longInt;
begin
	clrscr;
	if ParamCount<2 then
	begin
		textcolor(red);
		writeln('‘Їа ўЄ :');
		textcolor(white);
		writeln('?¬п Ёб室­®Ј® д ©«  Ё Ё¬п гЇ®а冷祭­®Ј® д ©«  Їа®Ја ¬¬  ¤®«¦­  Ї®«гз вм зҐаҐ§  '+
		+'Є®¬ ­¤­го бва®Єг!');
		ReadKey;
		halt;
	end;
	assign(f1,paramStr(1));
	assign(f2,paramStr(2));
	{$I-}
	reset(f1);
	if ioresult <> 0 then
	begin
		writeln('” ©« ­Ґ ­ ©¤Ґ­!');
		readkey;
		halt;
	end;
	{$I-}
	rewrite(f2);
	boolNum:=false;
	while not Eof(f1) do
	begin
		read(f1,number);
		write(f2,number);
		writeln(number);
		if kratno11(number) then boolNum:=true;
	end;
	readKey;
	if boolNum=true then
	begin
		writeln('Ќ ¦¬ЁвҐ «оЎго Є« ўЁиг ¤«п ўл室 ..');
		writeln('‚ д ©«Ґ бҐвм зЁб« - б㬬  жЁда Є®в®але а ў­  11- ­Ґ гЇ®а冷稢 Ґ¬');
		readKey;
		halt;
	end;
	readkey;
	writeln('Sort');
	for i:=0 to fileSize(f2)-2 do
	begin
		Seek(f2,i);
		Read(f2,n1);
		for j:=i+1 to fileSize(f2)-1 do
		begin
			Seek(f2,j);
			Read(f2,n2);
			if n1>n2 then
			begin
				tmp:=n1;
				n1:=n2;
				n2:=tmp;
				Seek(f2,j);
				Write(f2,n2);
				Seek(f2,i);
				Write(f2,n1);
			end;
		end;
	end;
	close(f1);
	close(f2);
	writeln('“бҐ!');
	readkey;
end.