Работа с динамической и статической памятью (одномерные массивы)

uses crt;
const nmax=100;
var a,b:array[1..nmax] of integer;
    n,i,j,imx,k,x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива A до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходный массив A:');
for i:=1 to n do
 begin
  a[i]:=random(100);
  write(a[i]:4);
 end;
writeln;
k:=0;
for i:=1 to n do
if(i mod 2=0)and(a[i] mod 2=0) then
 begin
  k:=k+1;
  b[k]:=a[i];
 end;
writeln('Исходный массив B:');
for i:=1 to k do
write(b[i]:4);
writeln;
for i:=1 to n-1 do
 begin
  imx:=i;
  for j:=i+1 to n do
  if b[j]>b[imx] then imx:=j;
  x:=b[i];
  b[i]:=b[imx];
  b[imx]:=x;
 end;
writeln('Отсортированный массив B:');
for i:=1 to k do
write(b[i]:4);
readln
end.

uses crt;
const nmax=100;
type
  TTmas=array[1..1] of integer;
  Tmas=^TTmas;
var a,b:Tmas;
    n,i,j,imx,k,x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива A до ',nmax,' n=');
readln(n);
until n in [1..nmax];
getmem(a,sizeof(TTmas)*n);
getmem(b,sizeof(TTmas)*n);
writeln('Исходный массив A:');
for i:=1 to n do
 begin
  a^[i]:=random(100);
  write(a^[i]:4);
 end;
writeln;
k:=0;
for i:=1 to n do
if(i mod 2=0)and(a^[i] mod 2=0) then
 begin
  k:=k+1;
  b^[k]:=a^[i];
 end;
writeln('Исходный массив B:');
for i:=1 to k do
write(b^[i]:4);
writeln;
for i:=1 to k-1 do
 begin
  imx:=i;
  for j:=i+1 to k do
  if b^[j]>b^[imx] then imx:=j;
  x:=b^[i];
  b^[i]:=b^[imx];
  b^[imx]:=x;
 end;
writeln('Отсортированный массив B:');
for i:=1 to k do
write(b^[i]:4);
freemem(a,sizeof(TTmas)*n);
freemem(b,sizeof(TTmas)*n);
readln
end.