Ну вот для примера попыталась написать:
uses crt;
Type
TTmas=array[1..1] of integer;
Tmas=^TTmas;
var
a:Tmas;
i,n:integer;
begin
writeln('введите n');
readln(n);
GetMem(a,SizeOf(TTmas)*n);
writeln('массив:');
for i:=1 to n do
readln( a^[i]);
for i:=1 to n do
writeln( a^[i], ' ');
writeln;
FreeMem(a,SizeOf(TTmas)*n); { пишет: неверное количество фактических параметров, а как надо писать?}
readln
end.
.