Напечатать значения второй половины элементов массива

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:=@b;
writeln(#13#10,#13#10,'Значения второй половины элементов массива');
for i:=6 to 10 do write(ptrmas^[i]:7:2);
PtrMas:=@b[10];
PtrMas:=Ptr(Seg(b[9]),Ofs(b[9])+ SizeOf(real));
Writeln(#13#10,#13#10,'Значение 10-го элемента: ',PtrMas^[1]:7:2);
Readkey;
end.

Type massiv=array[1..10] of real;
Var
...
b:massiv; PtrMas:^massiv;

uses crt;
type
Link = ^Number;
Number = record
 ID: integer;
 Cislo : real;
 NextRec: Link;
end;
var i, c, j, a: integer;
    Last, First, Curr, spisok, tmp : Link;
 
procedure Add(var spis1:Link ;znach1: real);
var
  tmp:Link;
begin
  if spis1=nil then
  begin
    GetMem(spis1,sizeof(number));
    tmp:=spis1;
  end
  else
  begin
    tmp:=spis1;
    while tmp^.nextrec<>nil do
      tmp:=tmp^.nextrec;
    GetMem(tmp^.nextrec,sizeof(number));
    tmp:=tmp^.nextrec;
  end;
  tmp^.nextrec:=nil;
  tmp^.cislo:=znach1;
end;
 
procedure ShowList(first: link);
begin
 if first=nil then writeln('В массиве нет элементов')
 else
  begin
   while first<>nil do
    begin
     write(first^.cislo,' ');
     first:=first^.nextrec;
    end;
 end;
end;
 
begin
 randomize;
 c:=10;
 writeln('Массив:');
 first:=nil;
 for i := 1 to c do
  begin
   a:=random(10);
   add(first,a);
  end;
 ShowList(first);
 writeln;
 j:=5;
 writeln('Вторая половина:');
 Curr := First;
 for i:=1 to j do
  Curr:= Curr^.NextRec;
 showlist(curr);
 curr:=first;
 writeln;
 writeln('10-й элемент:');
 for i:=1 to 9 do
  Curr:= Curr^.NextRec;
 showlist(curr);
 writeln;
 writeln('Измененный 10-й элемент:');
 curr^.cislo:=first^.cislo*1.5;
 showlist(curr);
end.