Найти в списке слов то слово, которое идет следом за заданным. Создать список слов и решить задачу — Delphi(Делфи)

procedure TForm1.Button1Click(Sender: TObject);
const
  SIZE = 5;
var
  a: array [1 .. SIZE] of string; // массив
  obr: string; // образец для поиска}
  found: boolean; // TRUE - совпадение образца с элементом массива }
  i: integer; // индекс элемента массива }

begin
  // ввод массива
  for i := 1 to SIZE do
    a[i] := StringGrid1.Cells[i - 1, 0];
  // ввод образца для поиска
  obr := edit1.text;
  // поиск
  found := FALSE; // пусть нужного эл-та в массиве нет
  i := 1;
  repeat
    if a[i] = obr then
      found := TRUE
    else
      i := i + 1;
  until (i > SIZE) or (found = TRUE);
  if found then
    ShowMessage('Следующее за образцом слово ' + a[i + 1] + #13 +
      'Поиск успешен.')
  else
    ShowMessage('Совпадений с образцом нет.');
end;

end.