[pika]

Помогите,пожалуйста,с решение данной задачи

Дан двумерный массив (5х5)..Необходимо ввести цифру (0-9) и вставить её перед и после всех элементов массива,которые заканчиваются на эту цифру

[lmikle]

Вложенный цикл по гриду.
Для каждой ячейки выясняем последнюю цифру и если совпадает, то к значению приделываем спереди и сзади доп. цифирки.

Код:

function AddDigit(ADigit : Integer; AValue : String) : String;
begin
  Result := AValue;
  Try
    If Length(AValue) > 0 Then
      If StrToInt(AValue[Length(AValue)) = ADigit Then
         Result := IntToStr(ADigit) + AValue + IntToStr(ADigit);
   Except
   End;
end;

Цикл с заменой напишешь сам.