помогите дорешать 2 задачки Опции

[Vinsent90]

Возникли проблемы при решении 2х задач.

1) Задан двухмерный массив, найти наибольший и наименьший элементы и поменять их местами.
 MAXMIN.PAS ( 1.11 килобайт ) Кол-во скачиваний: 382
. Не могу поменять местами элементы массива

2) Дана символьная строка. Определить, содержит ли строка числа, если да, то вывести на экран только чётные.
 STROKA.PAS ( 431 байт ) Кол-во скачиваний: 373
.

Помогите плиз

[мисс_граффити]

много раз выкладывалось
ну идея такая...
чтобы найти минимум ты в цикле делаешь, например:

if a[i,j]<min then
  min:=a[i,j];

а надо делать

if a[i,j]<a[mini,minj] then
  begin  
  mini:=i;
  minj:=j;
  end;

то есть запоминаешь не значение элемента, а его индексы.
аналогично с максимальным.