G>А можно текст задачки? Мне чисто так, для себя, поржать (с) Гадя Хренова

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

В матрице А(3 стр, 5 стл) поменять местами наименьшие элементы во второй и третьей строке. Для поиска номера наименьшей элемента в
произвольной строке матрицы использовать процедуру.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  ElemType   = Integer; // Абстрагируемся от типа элемента массива

// Находит индекс минимального элемента одномерного массива.
procedure IndexOfMinElem(const ary : array of ElemType; var index : Integer);
  var min : ElemType;
  var minIndex, i : Integer;
begin
  // По-умолчанию считаем, что минимальный элемент - это первый элемент массива.
  minIndex := Low(ary);
  min      := ary[minIndex];

  // Перебираем элементы массива за исключением первого элемента...
  for i := Low(ary) + 1 to High(ary) do
    // ... и проверяем не является ли он меншим нежели минимальный элемент найденный до этого.
    if ary[i] < min then begin
      // Если текущий элемент меньше минимального, то запоминаем его индекс и значение
      // в перменных minIndex и min соотвественно.
      minIndex := i;
      min := ary[i];
    end;

  index := minIndex; // возвращаем индекс наименьшего элемента массива.
end;

// Обменивает значение параметра месчтами. var позволяет нам менять
// содержимое значений в исходных перменных или ячейках массива, а ни их копиях.
procedure Swap(var x : ElemType; var y : ElemType);
  var temp : ElemType;
begin
  temp := x;
  x := y;
  y := temp;
end;

// Матрица 3 х 5.
var matrix : array[1..3, 1..5] of ElemType;

// Эта процедура печатает сообщение и текущее содержимое матрицы.
procedure PrintMatrix(msg : string);
  var i, k : Integer;
begin
  WriteLn(msg); // Печатаем сообщение
  // Перебираем все строки матрицы
  for i := Low(matrix) to High(matrix) do begin
    // Перебираем все колонки матрицы
    for k := Low(matrix[Low(matrix)]) to High(matrix[Low(matrix)]) do begin
      // Печатаем элемент матрицы.
      Write(matrix[i, k]);
      Write(' ') // Печатаем разделяющий пробел.
    end;

    WriteLn(''); // Печатаем разделяющий конец строки.
  end;

  WriteLn('');
end;


var indexOfMinElemInLine2, indexOfMinElemInLine3 : Integer;

begin
  // Инициализируем матрицу некоторыми значениями
  matrix[1, 1] := 5; matrix[1, 2] := 2; matrix[1, 3] := 7; matrix[1, 4] := 3; matrix[1, 5] := 9;
  matrix[2, 1] := 9; matrix[2, 2] := 4; matrix[2, 3] := 8; matrix[2, 4] := 7; matrix[2, 5] := 5;
  matrix[3, 1] := 4; matrix[3, 2] := 3; matrix[3, 3] := 7; matrix[3, 4] := 9; matrix[3, 5] := 1;

  PrintMatrix('Before swap:'); // Печатаем исходное содержимое матрицы

  // Получаем индекс минимального значения для второй строки
  IndexOfMinElem(matrix[2], indexOfMinElemInLine2);
  // Функция IndexOfMinElem возвращает индекс отсчитываеймй с нуля,
  // так что для его коррекции нужно к нему прибавить индекс нижнего элемента.
  indexOfMinElemInLine2 := indexOfMinElemInLine2 + Low(matrix[2]);
  // Получаем индекс минимального значения для третьей строки
  IndexOfMinElem(matrix[3], indexOfMinElemInLine3);
  indexOfMinElemInLine3 := indexOfMinElemInLine3 + Low(matrix[3]);
  // Производим обмен значений найденных ячеек.
  Swap(matrix[2, indexOfMinElemInLine2], matrix[3, indexOfMinElemInLine3]);

  PrintMatrix('After swap:'); // Печатаем содержимое матрицы после перестоновки минимальных значений

  ReadLn;
end.

procedure proc(a:array of array of tipelem);

type
  TMyArr = array[1..col,1..row] of tipelem;
var a:TMyArr;
procedure proc(x:TMyArr);

procedure proc(a:array[1..col,1..row] of tipelem);

OV>procedure proc(a:array of array of tipelem);
OV>

procedure PrintMatrix(msg : string; matrix : array of array of ElemType);

Identifier expected but 'ARRAY' found

OV>type
OV>  TMyArr = array[1..col,1..row] of tipelem;
OV>var a:TMyArr;
OV>procedure proc(x:TMyArr);
OV>

OV>procedure proc(a:array[1..col,1..row] of tipelem);
OV>

type
  ElemType   = Integer; // Aano?aae?oainy io oeia yeaiaioa ianneaa
  TMyArr = array[1..3,1..5] of ElemType;
...
procedure PrintMatrix(msg : string; const matrix : TMyArr);
...
PrintMatrix('Before swap:', matrix); // Ia?aoaai enoiaiia niaa??eiia iao?eou

Incompatible types: 'TMyArr' and 'Array'