пара задач в Pascal

[Wodewill]

1. Найти номер и значение минимального положительного элемента, расположенного на нечетном месте в массиве целых чисел. Решить задачу с использованием процедур.

2. Дана квадратная целочисленная матрица порядка n. Увеличить в два раза все элементы, лежащие в четных строках и уменьшить на два в нечетных строках. Решить задачу с использованием процедур.

[viron]

Procedure Min();
const
  ArrSize = 10; // размер массива
var
  arr: array[1..ArrSize] of Integer;
  min: Integer;
  I: Integer;
  col: Integer;
begin
  min:= MaxInt; // максимальное целое

  // заполнение массива
  for I:= 1 to ArrSize do
  begin
    Write('Введите целое число: ');
    Readln(arr[I]);
  end;


  I:= 1;
  // поиск минимального положительного
  repeat
    if (arr[I] > 0) and (arr[I] < min) then
    begin
      min:= arr[I];
      col:= I;
    end;
    I:= I + 2;
  until (I >= ArrSize);

  // результат
  if min <> MaxInt then
    Writeln('Минимальное положительное на нечетном месте =  ', arr[col])
  else
    Writeln('Нет положительных чисел на нечетных местах');

  Readln;
end;

[viron]

2. Дана квадратная целочисленная матрица порядка n. Увеличить в два раза все элементы, лежащие в четных строках и уменьшить на два в нечетных строках. Решить задачу с использованием процедур.

Procedure N();
const
  n = 10;   // порядок матрицы
var       
  arr: array[1..n, 1..n] of Integer;
  row, col: Integer;
begin
  for row:= 1 to n do
    for col:= 1 to n do
      if (row mod 2 = 0) then arr[row,col]:= arr[row,col] * 2
      else arr[row,col]:= arr[row,col] - 2;
end;

[Wodewill]

спасибо большое)