Сортировка массива

function cifry(n:integer):integer;
var m,k:integer;
begin
k:=0;
m:=n;
while m>0 do
 begin
  m:=m div 10;
  k:=k+1;
 end;
cifry:=k;
end;
var f:file of integer;
    a:array[1..100] of integer;
    n,i,j,x:integer;
begin
randomize;
//создадим файл input.dat
repeat
write('Сколько чисел записать в файл от 10 до 100 n=');
readln(n);
until n in[10..100];
assign(f,'input.dat');
rewrite(f);
for i:=1 to n do
 begin
  case i mod 3 of
  0:x:=random(10);
  1:x:=10+random(90);
  2:x:=100+random(900);
  end;
  write(f,x);
 end;
reset(f);
writeln('Исходный массив');
n:=0; //пусть мы не знаем сколько чисел в файле
while not eof(f) do
 begin
  n:=n+1;
  read(f,a[ n]);
  write(a[n]:4);
 end;
close(f);
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if (cifry(a[i])<cifry(a[j]))
or ((cifry(a[i])=cifry(a[j]))and(a[i]>a[j]))then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
assign(f,'output.dat');
rewrite(f);
for i:=1 to n do
write(f,a[i]);
writeln('Измененный массив');
reset(f);
while not eof(f) do
 begin
  read(f,x);
  write(x:4);
 end;
close(f);
end.