[Текст из сниппета]
[Припев]
Эти цепи на мне, сук, лавэ
Сотка тыщ на Black LV
Сотни сук хотят ко мне
Сотни сук хотят ко мне
Как дела? Как дела?
Это новый Cadillac
Делать деньги, делать деньги
Делать деньги, бл*ть, вот так (few-few)
[Куплет]
...
Быстрей, посмотри
Вам подарок, а мне часы
Drip на шее, всё под жопой
Мне чуть больше двадцати
[Припев]
Эти цепи на мне, сук, лавэ
Сотка тыщ на Black LV
Сотни сук хотят ко мне
Сотни сук хотят ко мне
Как дела? Как дела?
Это новый Cadillac
Делать деньги, делать деньги
Делать деньги, бл*ть, вот так (few-few)
Анастасия, Вам нужно поменять местами строки 60 и 61. Сейчас программа ищет только одну пару чисел, а по условию нужно выводить их все, т.к. вывод сообщения в Memo1 произойдет только после прохода двух циклов for (для параметров i и j)
Если хотите улучшить программу: можно добавить проверку на тот случай, если ни одной подходящей пары не будет найдено.
Можно еще в StringGrid'е оставить одну строку, т.к. остальные не используются, за это отвечает свойство RowCount
Мемо1 в начале процедуры желательно очистить от сообщений, Memo1.Lines.Clear; если только Вы не хотите хранить всю историю работы программы.
Объяснение: