unit Unit1;

    

interface

    

uses

    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

    Dialogs, Grids;

    

type

    TForm1 = class(TForm)

      StringGrid1: TStringGrid;

      procedure FormShow(Sender: TObject);

    private

      procedure FirstOption();

      procedure SecondOption();

      procedure ThirdOption();

    public

    { Public declarations }

    end;

    

var

    Form1: TForm1;

    a: array[1..10,1..4] of integer = ((1, 1, 4234,1111),

                                       (1, 4, 5423,4444),

                                       (1, 3, 6532,3333),

                                       (1, 5, 8865,5555),

                                       (2, 4, 3456,4444),

                                       (1, 3, 7898,3333),

                                       (3, 4, 5643,4444),

                                       (1, 5, 7542,5555),

                                       (7, 4, 7532,4444),

                                       (1, 4, 3456,4444));

    

implementation

    

{$R *.dfm}

 

function postincrement(var a: Integer): Integer; inline;

begin

  Result := a;

  inc(a);

end;

 

procedure TForm1.FirstOption(); // Вариант с дополнительным массивом индексов (удобен, если надо обращаться к результатам несколько раз)

var i,t:Integer; b: array of Integer;

begin

    t:=0;

    SetLength(b, Length(a));

    StringGrid1.RowCount:=Length(a);

    for i:=Low(a) to High(a) do

      if a[i][2] = 4 then

        b[postincrement(t)] := i;

    if t > 0 then

      for i := Low(b) to t + Low(b) - 1 do begin

        StringGrid1.Cells[1,i + 1 - Low(b)] := IntToStr(a[b[i]][1]);

        StringGrid1.Cells[2,i + 1 - Low(b)] := IntToStr(a[b[i]][4]);

      end;

end;

    

procedure TForm1.SecondOption(); // Вариант повторным просмотром (удобен при однократном решении)

var i,t:Integer;

begin

    t:=0;

    SetLength(b, Length(a));

    StringGrid1.RowCount:=Length(a);

    for i:=Low(a) to High(a) do

      if a[i][2] = 4 then

        inc(t);

    if t > 0 then begin

      t := 1;

      for i := Low(a) to High(a) do if a[i][2] = 4 then begin

        StringGrid1.Cells[1,t] := IntToStr(a[b[i]][1]);

        StringGrid1.Cells[2,t] := IntToStr(a[b[i]][4]);

        inc(t);

      end;

    end;

end;

    

procedure TForm1.ThirdOption(); // Вариант вывода произвольного набора элементов (так же удобен при однократном решении, но позволяет дополнительно выбрать произвольный набор полей)

const b: array [0 .. 1] of Integer = (1, 4);

var i,j,t:Integer;

begin

    t:=0;

    SetLength(b, Length(a));

    StringGrid1.RowCount:=Length(a);

    for i:=Low(a) to High(a) do

      if a[i][2] = 4 then

        inc(t);

    if t > 0 then begin

      j := 1;

      for i := Low(a) to High(a) do if a[i][2] = 4 then begin

        for t := Low(b) to High(b) do

          StringGrid1.Cells[t + 1 - Low(b),j] := IntToStr(a[i][b[t]]);

        inc(j);

      end;

    end;

end;

    

procedure TForm1.FormShow(Sender: TObject);

begin

  // Каждая из них делает то что показано на картинке

  FirstOption();

  // SecondOption();

  // ThirdOption();

end;

    

end.

unit Unit1;

    

interface

    

uses

    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

    Dialogs, Grids;

    

type

    TForm1 = class(TForm)

    StringGrid1: TStringGrid;

    procedure FormShow(Sender: TObject);

    private

    { Private declarations }

    public

    { Public declarations }

    end;

    

var

    Form1: TForm1;

    a: array[1..10,1..4] of integer = ((1, 1, 4234,1111),

                    (1, 4, 5423,4444),

                    (1, 3, 6532,3333),

                    (1, 5, 8865,5555),

                    (1, 4, 3456,4444),

                    (1, 3, 7898,3333),

                    (1, 4, 5643,4444),

                    (1, 5, 7542,5555),

                    (1, 3, 7532,3333),

                    (1, 4, 3456,4444));

    

implementation

    

{$R *.dfm}

    

procedure TForm1.FormShow(Sender: TObject);

var i,j,k,t:Integer;

begin

StringGrid1.RowCount:=Length(a);

    

t:=0;

j:=Low(a)-1; // Начальное значение индекса

k:=Low(a)-1; // Начальное значение индекса

    

for i:=1 to Length(a) do

    if a[i][2] = 4 then

    begin

    

    //ShowMessage(IntToStr(t));

    // StringGrid1.Cells[1,t]:=IntToStr(a[i][3]);

    // Для сохранения первого индекса совпавшего с условием

    if j < Low(a) then j := i;

    // Для сохранения последнего индекса совпавшего с условием

    k := i;

    inc(t);

    end;

if t > 0 then begin

  // Дальше можете оставить одну из этих строк

  // Почему вы добавляете 3 индекс, хотя сами же просили в условии 4-ый?

  StringGrid1.Cells[1,0]:=IntToStr(a[j][4]); // Значение первого совпавшего с условием элемента

  StringGrid1.Cells[2,0]:=IntToStr(a[k][4]); // Значение последнего совпавшего с условием элемента

end;

end;

    

end.