const array non-working program code

[wasq]

IDE MikroPascal PRO for AVR version 7.0.1
Atmega328P
The program does not work correctly if the index is variable. That's right, if the index is constant.

program yy;
Type ImPP = string [5];
Var
i:byte;
st:ImPP;
const Im: array [1..5] Of ImPP = ('SSSSS','WWWWW','RRRRR','FFFFF','HHHHH');
begin
{ This code does not work. The variable 'st' takes an invalid value }
i:=1;
st:= Im;
i:=i+1;
st:= Im;
i:=i+1;
st:= Im;
{ This code works. The variable takes the correct value }
st:= Im[1];
st:= Im[2];
st:= Im[3];
st:= Im[4];
st:= Im[5];

end.

I ask you to tell me what to do.

[filip]

Hi,

I apologize for the inconvenience caused by this issue, I will report this to our developers.

In the meantime, I will try to find a workaround for this.

Regards,
Filip.

[wasq]

Hi
There are many simple solutions. I will show one of them.
I hope for a correction
Thank you/

program yy;
Type ImPP = string [5];
Var
i:byte;
st:ImPP;
const Im: array [1..5] Of ImPP = ('SSSSS','WWWWW','RRRRR','FFFFF','HHHHH');

Function cs(vx:byte):ImPP;
Var w:byte;
Begin
cs:='';
For w:=0 to 5 Do cs[w]:=Im[vx][w];
End;

begin
i:=1;
st:=cs(i);
i:=2;
st:=cs(i);
end.