Заполнить массив Х(10) случайными значениями. Организовать вывод на экран. Присвоить указателю адрес начала размещения массива в памяти. Напечатат

program DinArr;
 
type
  TType = Integer;
  TPType = ^TType;
const
  N = 10;
var
  PArr : TPType;
  PItem : TPType;
  i : Integer;
begin
  
  GetMem(PArr, N * SizeOf(TType));
  Writeln('Элементы динамического массива:');
  Randomize;
  for i := 0 to N - 1 do begin
    
 PItem := Ptr(Seg(PArr), Ofs(PArr) + i * SizeOf(TType));
  PItem^ := Random(11);
   Write(PItem^);
  end;
  Writeln;
 
  Writeln('Вторая половина массива:');
  for i := N div 2 to N - 1 do begin
    PItem := Ptr(Seg(PArr), Ofs(PArr) + i * SizeOf(TType));
    Write(PItem^);
  end;
  Writeln;
 
  Writeln('Десятый элемент массива:');
  i := 10 - 1;
  PItem := Ptr(Seg(PArr), Ofs(PArr) + i * SizeOf(TType));
  Writeln(PItem^);
 
  FreeMem(PArr);
end.

Uses Crt;
Type massiv=array[1..10] of real;
Var
i:integer;
b:massiv; PtrMas:^massiv;
Begin
clrscr; randomize;
Writeln('Элементы массива : ');
{Заполнить массив случайными значениями+вывод на экран}
for i:=1 to 10 do begin b[i]:=100*random; write(b[i]:7:2); end;
{Присвоить указателю PtrMas адрес начала размещения массива в памяти}
PtrMas:=@b;
{Напечатать значения второй половины элементов массива}
writeln(#13#10,#13#10,'Значения второй половины элементов массива');
for i:=6 to 10 do write(ptrmas^[i]:7:2);
{Присвоить указателю адрес 10-го элемента}
PtrMas:=@b[10];
PtrMas:=Ptr(Seg(b[9]),Ofs(b[9])+ SizeOf(real));
{Ptr- преобразует базовый адрес сегмента и смещения в значение типа указатель}
Writeln(#13#10,#13#10,'Значение 10-го элемента: ',PtrMas^[1]:7:2);
Readkey;
end.