Написать модуль - Turbo Pascal

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

Замените с использованием модулей личной библиотеки, каждый положительный элемент массива А заменить на значение суммы первого и последнего элементов массива В;

Решение задачи: «Написать модуль»

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

unit ybf19;
 
interface {интерфейсная часть}
 
const n = 10;
type TArray = array[1..n] of integer;
 
procedure input (var z : TArray); {ввод массива z}
procedure output (z : TArray); {вывод массива z}
function sumOfFnL (z : TArray) : integer; {сумма 1 и последнего в z}
procedure process (var z : TArray; k : integer); {выполняет замену по заданию}
 
implementation {реализация подпрограмм модуля}
 
procedure input (var z : TArray); {ввод массива z}
var i : integer;
begin
  for i := 1 to n do
    z[i] := random(20) - 10;  
end;
 
procedure output (z : TArray); {вывод массива z}
var i : integer;
begin
  writeln;
  for i := 1 to n do
    write(z[i]:7);
  writeln
end;
 
function sumOfFnL (z : TArray) : integer;
begin
  sumOfFnL := z[1] + z[n]
end;
 
procedure process (var z : TArray; k : integer);
var i : integer;
begin
  for i := 1 to n do
    if z[i] > 0 then z[i] := k
end;
 
end.

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

В модуле ybf19 объявлен интерфейс и определены константы и типы данных.
В процедуре input происходит инициализация массива z случайными числами от -10 до 10.
В процедуре output происходит вывод массива z на экран.
В функции sumOfFnL вычисляется сумма первого и последнего элементов массива z.
В процедуре process происходит замена положительных элементов массива z на значение k.
Модуль не содержит вложенных списков.