Can you make a dynamic array of strings in pascal?

Question

I wrote this little program in pascal:
program split;
var  s,p,q,r,t:longint;
a: array of string;
x,y:string;
begin
read (s);
setlength (a,s);
read (p);
readln (a[0]);
for  q:=1 to s-1 do
a[q]:=a[0];
for q:=1 to p do
begin
read  (x);
if x='SPLIT' then
begin
read (r);
x:=a[r - 1];
read (y);
for t:=0 to r-2 do
if a[t]=a[r - 1] then a[t]:=y;
read (y);
for t:=r-2 to s do
if a[t]=a[r - 1] then a[t]:=y;
end;
if x='QUERY' then
begin
read (t);
writeln (a[t]);
end;
end;
end.

and it wont even go to the loop, it just ends. Can you help?

Answer

I hope below example and details helpful to you
Type  
   darray = array of integer;
var
   a: darray;
Before using the array, you must declare the size using the setlength function:

setlength(a,100);
Now, the array a has a valid array index range from 0 to 999: the array index is always zero-based.

The following example declares and uses a two dimensional dynamic array:

program exDynarray; 
var
   a: array of array of integer; (* a 2 dimensional array *)
   i, j : integer;  
begin  
   setlength(a,5,5);  
   for i:=0 to 4 do  
      for j:=0 to 4 do  
         a[i,j]:= i * j;  
   for i:=0 to 4 do  
   begin  
      for j:= 0 to 4 do  
      write(a[i,j]:2,' ');  
    writeln;  
   end;  
end.
When the above code is compiled and executed, it produces the following result:

0 0 0 0 0
0 1 2 3 4
0 2 4 6 8
0 3 6 9 12
0 4 8 12 16

Can you make a dynamic array of strings in pascal?

Answers (1)