Графический интерфейс

const
  nmax = 20; { Максимальное количество элементов, nmax>1 }
 
var
  A: array[1..nmax] of real;
  MinDiff, c: real; { Минимальная разница }
  i, j, N, i1, i2: byte;
 
begin
  { Вводим размер массива N: }
  repeat
    write('N = ');
    readln(N)
  until (N > 1) and (N <= nmax); { N принадлежит [2, nmax] }
  randomize; { Датчик псевдослучайных чисел }
  for i := 1 to N do 
  begin
    a[i] := -10 + 20 * random; { Случайное число с интервала [-10, 10) }
    write(' ', a[i]:0:2);
    if i = 2 then
    begin
      MinDiff := abs(a[2] - a[1]); { Начальное значение минимальной разницы }
      i1 := 1; { Меньший индекс }
      i2 := 2  { Больший индекс }
    end
    else { Сравниваем модуль разницы текущего
       элемента a[i] со всеми предыдущими: }
      for j := 1 to i - 1 do
      begin
        c := abs(a[j] - a[i]); { Модуль разницы между a[j] и a[i] }
        if c < MinDiff then { c меньше MinDiff }
        begin
          MinDiff := c; { Новое значение MinDiff }
          i1 := j; { Меньший индекс }
          i2 := i  { Больший индекс }
        end
      end
  end;
  writeln;
  writeln('Номера ближайших элементов: ', i1, ' ', i2);
  readln
end.

procedure TForm1.FormCreate(Sender: TObject);
begin
//зададим некоторые параметры таблицы
with StringGrid1 do
 begin
  fixedCols:=0;
  fixedRows:=0;
  defaultColwidth:=40;
  rowcount:=1;
  scrollBars:=ssHorizontal;
 end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var a: array[1..20] of real;
    n,i,j,i1,i2: integer;
    mindiff,c:real;
begin
randomize;
//проверим ввод размера
val(Edit1.Text,n,i);
if (i<>0)or not(n in [2..20])then
 begin
  ShowMessage('Неверно введен размер массива');
  Edit1.Clear;
  Edit1.SetFocus;
  exit
 end;
StringGrid1.ColCount:=n;
for i:=1 to n do
 begin
  a[i]:=-10 + 20 * random;
  StringGrid1.Cells[i-1,0]:=format('%.2f',[a[i]]);
  if i=2 then
    begin
      mindiff:=abs(a[2]-a[1]);
      i1:=1;
      i2:=2
    end
  else
   for j:=1 to i-1 do
    begin
     c:=abs(a[j]-a[i]);
     if c<mindiff then
      begin
       mindiff:=c;
       i1:=j;
       i2:=i
      end
    end
 end;
ShowMessage('Номера ближайших элементов: '+inttostr(i1)+' '+inttostr(i2));
end;