[fpc-pascal] problem with array of string

[Dariusz Mazur]

I have problem with two dimension array of string

my program:

procedure testlinie;
var
    linie  : array[0..1,0..100] of shortstring;
    i,ii : integer;
begin
   fillchar(linie,sizeof(linie),0);
   for i := 0 to 1 do begin
     for ii:= 1 to 10 do begin
       linie[i,ii]:= linie[i,ii]+char(64+ii);
       writeln(i:5,ii:5,linie[i,ii]) ;
       
     end;
   end;
end;

during execution output is:
0 1 A
0 2 B
0 3 C etc.

but should be:
0 1 A
0 2 AB
0 3  ABC

on Delphi all works OK.


and second problem is with Watch list: (maybe this part should be on 
Lazarus list)
I've added Watch at cursor : linie[0,1]
and i see:
for linie[0,1] = {'' <repeats 100 times>}       < 1. I want only one 
string              
                              <      2. even  that after 5 iteration 
should be <'A','B','C'>
                               <     3 and after 15 iteration, for i=1 
Watch List is showing  line[0,1]= {'A','B','C','D .., for me line [1] is 
showing not line [0]


I use current (-2 days) FPC

Darek

PS.I know my poor English, but maybe someone understand this.