Строка: Найти то слово, которое по алфавиту предшествует всем другим словам строки

uses crt;
var i,n,max,min, i_min, i_max, sum: integer;
A: array [1..100] of integer;  
begin
writeln('Введите количество элементов: ');
  readln(n);
  writeln('Введите элементы массива: ');
  for i:=1 to n do begin
  write('A[',i,']=');
  readln(A[i]); end;
  max:=abs(A[1]);
  min:=abs(A[1]);
  sum:=0;
  for i:=1 to n do begin
  if abs(A[i])<min then begin min:=abs(A[i]); i_min:=i; end;
  if abs(A[i])>max then begin max:=abs(A[i]); i_max:=i; end;
  end;
   
  if i_min<i_max then begin
  inc(i_min);
  inc(i_min);
  while i_min<i_max do begin 
  sum:=sum+A[i_min];
  inc(i_min);
  end; end;
 
  if i_min>i_max then begin
  inc(i_max);
  inc(i_max);
  while i_max<i_min do begin 
  sum:=sum+A[i_max];
  inc(i_max);
  end; 
  end;
clrscr();
   writeln('Исходный массив: ');
   for i:=1 to n do
   write(A[i]:5);
   writeln;
   writeln('Sum: ', sum);
   readln;
end.