2 задачи про массивы Опции

[I_am_HATED]

1. Нахождение максимального значения в массиве среди всех чётных чисел. Длина массива вводится с клавиатуры. Печатать элементы массивы по 9 штук, по формату :6. Тип обрабатываемых данных - целые.

2. Заполнить двумерный массив A(MxN) элементов символами из одномерного массива В (длиной не более 256 элементов) "змейкой" от конца к началу - сперва N-ю строку справа налево, затем N-1-ю слева направо и т.д. Массив B предварительно заполняется из входного текстового файла. Оба массива распечатать. Предельные значения числа строк 16, столбцов 16. Тип обрабатываемых данных - символьный.

Помогите решить, я что-то путаюсь в них..

[Client]

var
  a:array[1..5,1..5]of integer;
  b:array[1..25]of integer;
  i,j,k,m,c:integer;
begin
  randomize;
  for i:=1 to 25 do
    b[i]:=i;
  k:=0;
  m:=1;
  c:=0;
  for i:=5 downto 1 do begin
    for j:=5 downto 1 do begin
      inc©;
      a[i,abs(j-k)+1-m]:=b[c];
    end;
    k:=abs(k-5);
    m:=abs(abs(m)-1);
  end;
  {for i:=1 to 5 do
    for j:=1 to 5 do
      StringGrid1.Cells[j-1,i-1]:=inttostr(a[i,j])} // это я на дельфи проверял
end;

А можно мне +1?