String típusú változó, betűnkénti vizsgálata, de hogyan? (Pascal)

Számomra az a fura, hogy a cikluson kívül próbálod kiszedni az aktuális stringet a tömbből:

k:=tomb[i];

writeln('Harmadik feladat: ');

for i:=1 to 20 do

program Project2;

{$APPTYPE CONSOLE} //Delphi miatt

uses SysUtils;

var tomb : array [1..20] of String[16];

i, n, l_darab : integer;

begin

// Tömb feltöltése

Randomize;

l_darab := 0;

for i := 1 to 20 do SetLength(tomb[i], 16);

for i := 1 to 20 do for n := 1 to 16 do

if Random(2) mod 2 = 0 then tomb[i][n] := 'L' else tomb[i][n] := 'M';

// Tömb kiírása

for i := 1 to 20 do WriteLn(tomb[i]);

// Számolás

for i := 1 to 20 do for n := 1 to 16 do if tomb[i][n] = 'L' then Inc(l_darab);

// Kiírás

Writeln(l_darab, ' L betu talalhato a tombben');

ReadLn;

end.