нашел решение
uses Arrays;
var a,i,t,n:integer;
mas: array [,] of real;
begin
writeln('Vvedite kolichestvo slov');
readln(n);
mas := new real[1,n+1];
for i:=0 to n-1 do
begin
writeln('Vvedite slovo');
read(t);
mas[0,i]:=t;
end;
for i:=0 to n do
begin
writeln(mas[0,i]);
end;
end.