[Delphi]Матрицы

[$TuDenT]

Собственно вот по какому вопросу обратился:
1. Задано целое A>1. Найти наименьшее целое неотрицательное число k, при котором 5к>A. (k - степень пятерки)
2.Дана матрица A(N,M). Поменяйте местами ее наибольший и наименьший элементы (первые по порядку, если их несколько). Порядок просмотра элементов матрицы слево направо и сверху вниз.

Препод сказал задачки элементарные, но мозг кипит. Искринне надеюсь на вашу помощь.

Если надо то и за Рубли

[A_r_r_a_y]

1:

var a,k,st:integer;
begin
  a:=StrToInt(Edit1.Text);
  st:=1;
  k:=0;
  while st<=a do
    begin
      st:=st*5;
      inc(k);
    end;
  Edit2.Text:=IntToStr(k);
end;

[Ламер_001]

в цикле должно быть строгое неравненство, судя по условию задачи.
2)

max := a[0,0]; i_max := 0; j_max := 0;
min := max;     i_min := 0;  j_min := 0;
for i := 0 to n-1 do
 for j := 0 to m-1 do
  if (a[i,j] > max) then
   begin
     max := a[i,j];
     i_max := i;
     j_max := j;
   end
  else
     if (a[i,j] < min) then
      begin
        min := a[i,j];
        i_min := i;
        j_min := j;
      end;
max := a[i_max, j_max];
a[i_max, j_max] := a[i_min, j_min];
a[i_min, j_min] := max;