Процедуры и функции

program Project1;
 
const
  maxelem = 10;
 
type
  TArr1int = array [1..maxelem] of integer;
 
 
procedure RandInArr(var arr: TArr1int; nn: integer; left, right: longint);
{Процедура для заполнения одномерного массива случайными числами}
var
  i: longint;
begin
  for i:= 1 to nn do
      arr[i]:= left + random(right - left + 1);
end;
 
 
procedure InfOutArr(arr: TArr1int; nn: integer);
{Процедура для вывода одномерного массива в консоль}
var
  i: integer;
begin
  for i:= 1 to nn do
    write(' ',arr[i]:5);
  Writeln;
end;
 
procedure MinMaxElementArray(arr: TArr1int; nn: integer; var Min, Max: integer);
{ Процедура для нахождения первого минимального и максимального по значению
  элементов массива }
var
   i: byte;
begin
  Min:= arr[1];
  Max:= arr[1];
  for i:= 1 to nn do
    begin
      if arr[i] > max then  { Условие для поиска элемента с максимальным значением}
          max:= arr[i];
      if arr[i] < min then  { Условие для поиска элемента с минимальным значением}
          min:= arr[i];
    end;
end;
 
procedure SqrElementArr(var arr: TArr1int; nn: integer );
{ Процедура, которая возводит в квадрат элементы массива}
var
  i: integer;
begin
  for i:= 1 to nn do
    arr[i]:= arr[i]*arr[i];
end;
 
var
  a: array [1..4] of TArr1int; { Переменные для хранения массивов}
  maxval, minval: integer; { Переменные для хранения значений максимального и минимального элементов}
  i: integer; { Вспомогательная переменная для организации цикла }
  n: integer; { Переменная для хранения значения количества элементов в массиве}
begin
  Randomize;
  for i:= 1 to 4 do
    begin
      case i of
      1: n:= 4;
      2: n:= 6;
      3: n:= 3;
      4: n:= 5;
      end;
      RandInArr(a[i],n,-10,10);             { Заполнение массива случайными числами}
      Writeln('Исходный массив А',i,': ');
      InfOutArr(a[i],n);                    { Вывод массива в консоль}
      MinMaxElementArray(a[i],n,minval, maxval);  { Поиск максимального и минимального элемента}
      Writeln('Первый минимальный элемент массива А',i,': ', minval);
      Writeln('Первый максимальный элемент массива А',i,': ', maxval);
      SqrElementArr(a[i],n);               { Возведение элементов массива в квадрат}
      Writeln('Измененный массив А',i,': ');
      InfOutArr(a[i],n);                      { Вывод массива в консоль}
      MinMaxElementArray(a[i],n,minval, maxval);   { Поиск максимального и минимального элемента}
      Writeln('Первый минимальный элемент массива А',i,': ', minval);
      Writeln('Первый максимальный элемент массива А',i,': ', maxval);
    end;
  Readln;
end.