Как задать длину двухмерного динамического массива массива в паскале?

Question

[Александр Николаевич]

пишу код на паскале абс

var a,i,t,n:integer;

mas:array of array of real;
begin 
writeln('Vvedite kolichestvo slov');
readln(n);
SetLength(mas,5,5);
for i:=0 to n do 
begin 
writeln('Vvedite slovo');
read(t);
b[1,i]:=t;
end;
for i:=0 to n do 
begin 
writeln(b[1,i]);


end;
end.

в строке с заданием длины выдает ожидалось два параметра в примерах в интернете там три вроде все правильно но у меня выходит ошибка

Answer 1

[Александр Николаевич]

нашел решение

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.