Записать во второй массив данные тех работников, кто на сегодняшний день проработал уже не менее 5 лет

procedure TForm22.Button1Click(Sender: TObject);
begin
close; 
end;
procedure TForm22.StringGrid1Click(Sender: TObject);
begin
StringGrid1.Cells[0,0]:='Фамилия';
StringGrid1.Cells[1,0]:='Имя';
StringGrid1.Cells[2,0]:='Отчество';
StringGrid1.Cells[3,0]:='Улица';
StringGrid1.Cells[4,0]:='Дом';
StringGrid1.Cells[5,0]:='Квартира';
StringGrid1.Cells[6,0]:='Дата';
end;
 
procedure TForm22.StringGrid2Click(Sender: TObject);
begin
StringGrid2.Cells[0,0]:='Фамилия';
StringGrid2.Cells[1,0]:='Имя';
StringGrid2.Cells[2,0]:='Отчество';
StringGrid2.Cells[3,0]:='Улица';
StringGrid2.Cells[4,0]:='Дом';
StringGrid2.Cells[5,0]:='Квартира';
StringGrid2.Cells[6,0]:='Дата';
end;
procedure TForm1.Button2Click(Sender: TObject);
var date,i,j,vvod:integer;
begin
begin
j:=1;
for i:=1 to 5 do
begin
vvod:=strtoint(edit1.text);
date:=strtoint(stringgrid1.Cells[6,i]);
date:=Abs(date-vvod);
if date>=5 then
begin
stringgrid2.cells[0,j]:=stringgrid1.cells[0,i];
stringgrid2.cells[1,j]:=stringgrid1.cells[1,i];
stringgrid2.cells[2,j]:=stringgrid1.cells[2,i];
stringgrid2.cells[3,j]:=stringgrid1.cells[3,i];
stringgrid2.cells[4,j]:=stringgrid1.cells[4,i];
stringgrid2.cells[5,j]:=stringgrid1.cells[5,i];
stringgrid2.cells[6,j]:=stringgrid1.cells[6,i];
inc(j);
end;end;end;
end;
end.

BBB.LoadFromFile('Base.bs');

uses
  ComObj;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  WordApp, NewDoc, WordTable: OLEVariant;
  iRows, iCols, iGridRows, jGridCols: Integer;
begin
  try
    // Create a Word Instance
    // Word Instanz erzeugen
    WordApp := CreateOleObject('Word.Application');
  except
    // Error...
    // Fehler....
    Exit;
  end;
 
  // Show Word
  // Word anzeigen
  WordApp.Visible := True;
 
  // Add a new Doc
  // Neues Dok einfugen
  NewDoc := WordApp.Documents.Add;
 
  // Get number of columns, rows
  // Spalten, Reihen ermitteln
  iCols := StringGrid1.ColCount;
  iRows := StringGrid1.RowCount;
 
  // Add a Table
  // Tabelle einfugen
  WordTable := NewDoc.Tables.Add(WordApp.Selection.Range, iCols, iRows);
 
  // Fill up the word table with the Stringgrid contents
  // Tabelle ausfullen mit Stringgrid Daten
  for iGridRows := 1 to iRows do
    for jGridCols := 1 to iCols do
      WordTable.Cell(iGridRows, jGridCols).Range.Text :=
        StringGrid1.Cells[jGridCols - 1, iGridRows - 1];
 
  // Here you might want to Save the Doc, quit Word...
  // Hier evtl Word Doc speichern, beenden...
 
  // ...
 
  // Cleanup...
  WordApp := Unassigned;
  NewDoc := Unassigned;
  WordTable := Unassigned;
end;

for i:=0 to BBB.count-1 do T1.Cells[i mod 7, i div 7]:= BBB.Strings[i];

for i:=0 to BBB.count-1 do T1.Cells[i mod 7, i div 7 + 1]:= BBB.Strings[i];

procedure TForm1.SpeedButton5Click(Sender: TObject);
var
i:Integer;
 
begin
BBB.LoadFromFile('Base.bs');
for i:=0 to BBB.count-1 do T1.Cells[i mod 7, i div 7 + 1]:= BBB.Strings[i];
end;