задача "Коньки" на free pascal

[wwwhat_TT]

Помогите, пожалуйста, решить задачу:
В 179 школе есть много коньков самых разных размеров. Школьник может надеть коньки любого размера, который не меньше размеров его ноги. Известны размеры всех коньков и размеры ног школьников. Определите, какое наибольшее число школьников сможет одновременно пойти покататься.

Входные данные
Первая строка содержит список натуральных чисел размеры коньков. Вторая строка содержит список размеров ног школьников.

Выходные данные
Выведите единственное число — наибольшее количество школьников, которое сможет пойти на каток.

Примеры
входные данные
41 40 39 42
42 41 42
выходные данные
2

[Plague]

Отсортируйте массив для начала.

[wwwhat_TT]

Вот, что я смог придумать, но 9 тестов не проходят - "Неправильный ответ"

program doi;
uses crt;
type mas=array of longint;
var n,o,i,j,k,w:longint; a,b:mas; s:string;
procedure sort(p:mas;l:longint);
var x:longint;
begin
  for i:=1 to l-1 do
   for j:=1 to l-i do
    if p[j]>p[j+1] then
     begin
      x:=p[j];
      p[j]:=p[j+1];
      p[j+1]:=x;
     end;
end;
begin
 assign (input, 'input.txt');
 assign (output, 'output.txt');
 reset (input);
 rewrite (output);
 i:=-2;
 while not eof(input) do
  begin
  readln (input,s);
  inc(i);
  writeln (output,i,' ',s);
  end;
 close (output);
 close (input);
 reset (output);
 read (output,k);
 n:=1;
 o:=1;
 while not eof(output) do
  begin
  if k=-1 then begin n:=n+1; setlength (a,n); read (output,a[n-1]); end;
  if a[n-1]=0 then begin k:=0; n:=n-2; end;
  if (k=0) and not eof(output) then begin
   setlength (b,o+1);
   read (output,b[o]);
   o:=o+1;
   end;
   end;
  o:=o-2;
 close (output);
 rewrite (output);
 sort (a,n);
 sort (b,o);
 i:=1; j:=1; w:=0;
 while (i<=n)and(j<=o) do
  if a[i]>=b[j] then begin i:=i+1; j:=j+1; w:=w+1; end else
   i:=i+1;
 writeln (output,w);
 close (output);
end.

[wwwhat_TT]

Помогите, пожалуйста, найти ошибку

[FPaul]

Мне кажется, что сортировка неправильно реализована. При сортировке "пузырьком" переменные i и j должны изменяться в противоположных направлениях.

[FPaul]

Да и бред какой-то при работе с файлами - чтение из выходного файла - это смелое и революционное решение.