Динамические структуры данных. Простые списки - Pascal - Ответ 358623

program lab11;
{$R-}                          {откл. проверки компилятором границ массива}
    type
        MyType    =byte;                             {тип элемента массива}
        MyArray   =Array[1..1] of MyType;            {массив из 1 элемента}
        MyArrayPtr=^MyArray;
    var
        DynamicArray  : MyArrayPtr;      {указатель на динамический массив}
        count, i, size: byte;
begin
    count:=223;                     {выделение памяти: count * размер типа}
    size :=count*SizeOf(MyType);
    GetMem(DynamicArray, size);             {заполнение массива значениями}
    for i:=176 to count do
        DynamicArray^[i]:=i;
    for i:=176 to count do
        write(chr(DynamicArray^[i]):2);
    FreeMem(DynamicArray,Size);      {освобождение зарезервированной памяти
                                                               для массива}
    readln;
end.