Подпрограмма для преобразования одномерного массива типа byte в строку - Pascal

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

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

Решение задачи: «Подпрограмма для преобразования одномерного массива типа byte в строку»

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

Type mas=array[1..256] of byte;
/////
Function F(A:mas;n:byte):string;
Var s:string;
    i:byte;
Begin
     s:='';
     For i:=1 to n do
      s:=s+chr(A[i]);
     F:=s;
End;

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

Создается тип данных mas, который представляет собой одномерный массив типа byte размером от 1 до 256.
Определяется функция F, которая принимает одномерный массив A типа byte и переменную n типа byte. Функция возвращает строку s.
Создается переменная s, которая инициализируется пустой строкой.
Запускается цикл For, который проходит по каждому элементу массива A от 1 до n.
Внутри цикла каждый элемент массива A[i] преобразуется в символ с помощью функции chr(). Полученный символ добавляется к строке s.
По завершении цикла переменная s содержит преобразованную строку, которую функция F возвращает.