Для кого это "Не вопрос", Помогите

[Radiofuck]

Ввести символьную матрицу размером 5x5. Выбрать из нее те элементы, сумма индексов которых равна 6.(Delphi)
Если кому что-либо известно о решение данной задачи или есть исходник помогите.

[Virtson]

ищи на форуме.
уже делали

[zetrix]

for i:=1 to 5 do
 for j:=1 to 5 do
  if i+j=6 then s:=s+a[i,j];

//a - символьная матрица 5х5
//s - строка куда будут записаны нужные символы

P.S.: реализовано тупым перебором

[Radiofuck]

Похожую тему на форуме не нашел, даже через поиск.
За код благодарю.

[Virtson]

for i:=1 to 5 do
  s:= s+ a[i, 6-i];