Самые частые вопросы новичков. Тема матриц и строк.

A: = [X, Y];

procedure Matrica();
var
  A : array [1..10] of integer;
  B : array [0..9] of integer;
  i : integer;
begin
    For i:=1 to Length(A) do
    begin
        A[i] := RandomRange(1,10);
        B[i-1] := RandomRange(1,10);
    end;
end;

...
var
   A : Array [1..10] of Integer;
   B : Array [0..9] of Integer;
begin
   A = [2, 5, 1, 7, 4, 9, 1, 5, 4];
   B = [5, 5, 3, 3, 1, 7, 9, 9, 4];
end;
...

function MaxMinVect(Vector: Array of real):String;
var
  Max : Real;
  Min : Real;
  i   : Integer;
begin
//------Блок находит минимум в векторе--------
Min := Vector[LOW(Vector)];                         //Строчка говорит о том, что переменная Min будет хранить первое значение вектора
for i:=Low(Vector) to High(Vector) do               //Цикл, для перебора вектора от минимального элемента к максимальному.
    if Min > Vector[i] then Min := Vector[i];       //Здесь мы сравниваем значение переменной Min, и если оно больше текущего значения вектора,
                                                    //то переменной минимум присваиваем текущее значение Vectora. 
//------Блок находит максимум в векторе-------                                                   
Max := Vector[LOW(Vector)];                         //Строчка говорит о том, что переменная Max будет хранить первое значение вектора
for i:=Low(Vector) to High(Vector) do               //Цикл, для перебора вектора от минимального элемента к максимальному.
    if Max < Vector[i] then Max := Vector[i];       //Все аналогично, только сравниваем в другую сторону.
 
Result := 'Min: ' + Min + ' ; ' + 'Max: ' + Max;    //Формируем результат решения. В переменную MaxMinVect(имя нашей функции) вернется значение в виде "Min: -10 ; Max: 130"  
end;