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

[Катюша]

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


жду помощи =)

[mlc]

Сейчас Volvo опять в глаз даст

uses crt;
var f,f2:file of longint;
b:boolean;
i,j,x,y:longint;
s:string;
begin
assign(f,paramstr(1)); reset(f);
assign(f2,paramstr(2)); rewrite(f2);
b:=false;
repeat
read(f,x); str(x,s);
if (s[1]='1') or (pos ('2',s)>0) or (pos('3',s)>0) then b:=true;
write(f2,x);
until eof(f);
if b then begin
for i:=0 to filesize(f2)-1 do
 for j:=i+1 to filesize(f2) do begin
 seek(f2,i); read(f2,x);
 seek(f2,j); read(f2,y);
 if x>y then begin
  seek(f2,i); write (f2,y);
  seek(f2,j); write (f2,x);
   end;
  end;
end;
close(f); close(f2);
end.