Как добавить функции\процедуры с параметрами - Turbo Pascal

Формулировка задачи:

Помогите, пожалуйста. Нужно добавить функции ввода и вывода, при этом используя параметры.

Uses crt;
const n=10;
type
  arr=array[1..n] of integer;
Var A:arr;
    i,j,k,kol,max:integer;
 
function FindMax(x:arr;var k:integer):integer;
var
  max,i:integer;
begin
  max:=x[1];
  k:=1;
  for i:=2 to n do if x[i]>max then
    begin
      max:=x[i];
      k:=i;
    end;
  findmax:=max;
end;
 
begin
  clrscr;
  randomize;
  writeln('Введите элементы: ');
  for i:=1 to n do
    begin
    A[i]:=Random(100);
    write(A[i],' ');
  end;
  writeln;
  writeln('Максимум: ',findmax(a,k));
  kol:=n;
  i:=k+1;
  repeat
    if (A[i] mod 2)=0 then
     begin
       dec(kol);
       for j:=i to kol do A[j]:=A[j+1];
     end else inc(i);
   until i>kol;
  writeln('Преобразованный массив: ');
  for i:=1 to kol do Write(A[i],' ');
  readln;
end.

Решение задачи: «Как добавить функции\процедуры с параметрами»

Листинг программы

Uses crt;
const n=10;
type
  arr=array[1..n] of integer;
 
procedure vvod(var a:arr);
var i:integer;
begin
for i:=1 to n do
A[i]:=Random(100);
end;
procedure vyvod(a:arr;x:integer;s:string);
var i:integer;
begin
writeln(s);
for i:=1 to x do Write(A[i],' ');
writeln;
end;
function FindMax(x:arr;var k:integer):integer;
var
  max,i:integer;
begin
  max:=x[1];
  k:=1;
  for i:=2 to n do if x[i]>max then
    begin
      max:=x[i];
      k:=i;
    end;
  findmax:=max;
end;
Var A:arr;
    i,j,k,kol,max:integer;
begin
  clrscr;
  randomize;
  vvod(a);
  vyvod(a,n,'Исходный массив');
  writeln('Максимум: ',findmax(a,k));
  kol:=n;
  i:=k+1;
  repeat
    if (A[i] mod 2)=0 then
     begin
       dec(kol);
       for j:=i to kol do A[j]:=A[j+1];
     end else inc(i);
   until i>kol;
  vyvod(a,kol,'Преобразованный массив');
  readln;
end.

Объяснение кода листинга программы

Создается переменная A типа arr, которая представляет собой массив целых чисел размером 10.
Создается процедура vvod, которая принимает в качестве параметра массив a. Внутри процедуры происходит инициализация каждого элемента массива случайным числом от 0 до 99.
Создается процедура vyvod, которая принимает в качестве параметров массив a и его размер x. Внутри процедуры происходит вывод содержимого массива на экран.
Создается функция FindMax, которая принимает в качестве параметров массив x и переменную k. Функция находит максимальное значение в массиве и сохраняет его в переменной max, а также запоминает индекс этого значения в переменной k.
Создается переменная A типа arr, которая представляет собой массив целых чисел размером 10.
Создается переменная kol типа integer, которая будет использоваться для хранения количества элементов в массиве.
Создается переменная i типа integer, которая будет использоваться для итерации по массиву.
Создается переменная j типа integer, которая будет использоваться для итерации по массиву.
Создается цикл repeat, который будет выполняться до тех пор, пока i больше kol. Внутри цикла происходит проверка остатка от деления каждого элемента массива на 2. Если остаток равен нулю, то уменьшается значение переменной kol, а затем происходит итерация по массиву с помощью переменных i и j таким образом, чтобы каждый элемент массива, чей индекс больше или равен kol, был заменен на следующий элемент.
Выводится на экран преобразованный массив с помощью процедуры vyvod.
Завершается программа.