Найти первый из номеров К, для которых выполняется условие

procedure TForm1.Button1Click(Sender: TObject);
var
i, sSave : Integer;
a : array [1..10] of integer;
begin
 
// заполнение
// массива
 
i := 1;
while i <> 10 do
  begin
    i := i + 1;
    if (a[1] < a[i]) and (a[i] < a [10]) then
        sSave := i;
   end;
Label1.Caption := IntToStr(sSave);
  end;
 
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i, sSave1, sSave2 : Integer;
a : array [1..x] of Real; // если НЕцелочисленный массив. X по твоему усмотрению
begin
 
// заполнение
// массива
 
i := x;
while i <> 1 do
  begin
    i := i - 1;
    if a[i] > 0 then
        sSave1 := i;
    if a[i] < 0 then
        sSave2 := i;
   end;
a[sSave2] := a[sSave1]; // приравнивание
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i,sSave : Integer;
a : array [1..x] of integer;
begin
 
// заполнение
// массива
 
i := 1;
while i <> x do
  begin
    if (a[i] < 0) then
        sSave := i;
    i := i + 1;
   end;
Label1.Caption := 'Последний отриц. элемент массива '+ IntToSTR(a[sSave])+ ' заменён на модуль первого эл. массива '+IntToStr(abs(a[1]));
a[sSave] := abs(a[1]); // abs - модуль
end;

for i:=x downto 1 do
  if a[i]<0 then 
    begin
      a[i]:=abs(a[1]);
      break
    end;

procedure TForm1.Button1Click(Sender: TObject);
var
i,sSave, sN : Integer;
a : array [1..x] of integer;
begin
 
// заполнение
// массива
 
sSave := 1;
i := 1;
sN := -2147483647;  // не от балды - это макимальная отрицательная величина в Integer;
while i <> x do
  begin
    if (a[i] < 0) then
      begin
        if ((abs(a[i])) < (abs(sn))) then
          begin
            sSave := i;
            sN := a[i];
          end;
      end;
    I := I + 1;
   end;
Label1.Caption := 'Отриц. элемент с наименьшим модулем '+ IntToSTR(a[sSave])+ ' заменён на первый эл. массива '+IntToStr(a[1]);
a[sSave] := a[1]; // замена
end;

//sN := -2147483647;  // не от балды - это макимальная отрицательная величина в Integer;
sN:=Low(Integer);

procedure TForm1.Button1Click(Sender: TObject);
var
i,sSave, sN : Integer;
a : array [1..x] of integer;
begin
 
// заполнение
// массива
 
sSave := 1;
i := 1;
while i <> x do
  begin
    if (a[i] < 0) then
      begin
        if ((abs(a[i])) > (abs(sn))) then
          begin
            sSave := i;
            sN := a[i];
          end;
      end;
    I := I + 1;
   end;
Label1.Caption := 'Отриц. элемент с наибольшим модулем '+ IntToSTR(a[sSave])+ ' заменён на 0');
a[sSave] := 0; // замена
end;

var
  Form1: TForm1;
  s : String;
  sl : array [1..255] of Integer;
  k, aK, bukvu, sSave : Integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
s := Edit1.Text;
k := 1;
sSave := Low(Integer); //  :DDDDD
while k <> length(s) do
  begin
    if Edit1.Text[k] <> ' ' then
      begin
        bukvu := bukvu + 1;
        sl[aK] := bukvu;
      end
    else
      if bukvu <> 0 then
      begin
        bukvu := 0;
        aK := AK + 1;
      end;
      k := k+1;
    Memo1.Lines.Add('АК : '+IntToSTr(ak)+', bukvu : '+IntTOSTR(bukvu)+', k : '+IntTOSTR(k))
  end;
k := 1;
while k > 255 do
  begin
    if sl[k] <> 0 then
      begin
        if (sSave > sl[k]) then
          sSave := sl[k];
      end;
  k := k + 1;
  end;
memo1.Lines.Add('Мин. длина  слова: '+IntToStr(sSave));
end;

 program examen;
 
{$APPTYPE CONSOLE}
 
uses
  SysUtils;
 
var
 i,K:integer;
  a:array[1..10]of Integer;
  begin
  randomize;
   for i:=1 to 10 do
 
    a[i]:=random(10);
    writeln(a[i]);
    begin
  i:=1;
 while i <> 10 do
  begin
    i := i + 1;
    if (a[1] < a[i]) and (a[i] < a [10]) then
        K := i;
Writeln(k);
 
 
   end;
 end;
 
   Readln;
  end.

program Project13;
uses
SysUtils;
const
n=10;
var
e,i,j:Integer;
a:array[1..n]of Integer;
b:array[1..n]of Integer;
c:array[1..(n+n)] of integer ;
begin
Randomize;
for i:=1 to 2*n do
begin
c[i]:=Random(11)-5;
write(c[i]:4);
end;
begin
for i:=1 to 2*n do
if c[i]>c[i+1] then
e:=c[i]; //Метод пузырька
c[i]:=c[i+1];
e:=c[i+1];
read(e);
write(c[i]:4);
end;
Readln;
end.