дописать программу

[Razdolbai]

program The_last_laba;
uses
crt;
const
  size = 15; 
var
  a, b, c: array [1..size] of integer; 
  t: text;
  i, j, x, k: integer;
begin
  clrscr;
  assign(t, 'C:/File.txt');
  reset(t);  
  writeln('Исходный массив:');  
  begin
    for i := 1 to size do
      read(t, a[i]); 
    for i := 1 to size do write(a[i], ' ');  
  end;
  writeln;writeln('Отсортируем массив в порядке возрастания(для того, чтобы можно было выбрать ближние элементы:');
  for i := 1 to size - 1 do 
    for j := i + 1 to size do 
      if a[i] > a[j] then  
      begin
        x := a[i]; 
        a[i] := a[j]; 
        a[j] := x;
      end;
  for i := 1 to size do write(a[i], ' ');   
  writeln;writeln ('Массив B(наибольие числа пар элементов):');
  i := 2;k := 0;
  while i <= size do
  begin
    if i <= size then
    begin
      inc(k);     
      b[k] := a[i];        
      write(b[k], ' ');
    end;
    i := i + 2;
  end;
  writeln('Массив C(Наименьшие числа пар элементов):');
  i := 1;k := 0;
  while i <= size do
  begin
    if i <= size then
    begin
      inc(k);
      b[k] := a[i];
      write(b[k], ' ');
    end;
    i := i + 2;
  end;
  close(t);
  end.

Программа берет из текстового файла числа заносит их в массив,ставит их в порядке возрастания и сортирует числа в два других массива.
Условия сортировки: Два ближних числа,разница между которыми минимальна. Проблема в том что он просматривает числа в 1 массиве не до конца. Допустим если будут числа: 3 12 18 18 18 ... 18 то он сравнит 3 первых числа и разница у которого с предыдущим меньше в 1 массив занесет,а другое число в другой массив




___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.