Код не работает почему то, не понятно(

procedure TForm1.Button3Click(Sender: TObject);
var
s:string;
f:textfile;
i,l:integer;
 
mas1 : array [0..100] of string;
mas2 : array [0..100] of string;
mas3 : array [0..100] of string;
mas4 : array [0..100] of string;
mas5 : array [0..100] of string;
mas6 : array [0..100] of string;
 
 
label
kin;
begin
 i:=0;
 o:=1;
 j:=2;
 k:=3;
 q:=4;
 n:=5;
                                    for i:=0 to 11 do
                                    begin
 
AssignFile(f,'c:\'+inttostr(mas[i])+'.txt');
{$I-}
Reset(f);
{$I+}
if IOResult<>0 then 
begin
ShowMessage('Ошибка открития C:\'+inttostr(mas[i])+'.TXT');
Exit;
end;
l:=1;
 
 
 
 
 
While not EOF(f) do
begin
if l=1 then begin ReadLn(f,mas1[o]); l:=2; o:=o+6; goto kin;end;
if l=2 then begin ReadLn(f,mas2[j]); l:=3; j:=j+6; goto kin;end;
if l=3 then begin ReadLn(f,mas3[k]); l:=4; k:=k+6; goto kin;end;
if l=4 then begin ReadLn(f,mas4[q]); l:=5; q:=q+6; goto kin;end;
if l=5 then begin ReadLn(f,mas5[n]); l:=1; n:=n+6; goto kin;end;
     kin:
  end;
 
{Єто для проверки записывает ли что то}
//--------------------------
l:=0;
While not EOF(f) do
begin
memo2.Lines[l]:=mas1[l];
inc(l);
end;
//-------------------------------
CloseFile(f); 
 
 
                                         end;
 
end;

Var
  //Объяви эти шесть массивов так...
  mass[0..5,0..100] Of String;
 
 
procedure TForm1.Button3Click(Sender: TObject);
var
  s:string;
  f:textfile;
  i,l:integer;
 
 
begin
 o:=1;
                                    for i:=0 to 11 do
                                    begin
AssignFile(f,'c:\0.txt'); // привязка названия файла к файловой переменной
 
{$I-} // отключение контроля ошибок ввода-вывода
Reset(f); // открытие файла для чтения
{$I+} // включение контроля ошибок ввода-вывода
if IOResult<>0 then // если есть ошибка открытия, то
begin
  ShowMessage('Ошибка открытия файла C:\0.TXT');
  Exit; // выход из процедуры при ошибке открытия файла
end;
 
l:=0;
While not EOF(f) do // пока не конец файла делать цикл:
begin
  ReadLn(f,mass[l,o]);
  Inc(l);
  If l=6 Then
  Begin l:=0; Inc(o); End;
end;
 
l:=0;
While not EOF(f) do // пока не конец файла делать цикл:
begin
  memo2.Lines.Add(mass[1,l]); //Добавляем строку в Memo
  inc(l);
end;
 
CloseFile(f); // закрыть файл
 
                                         end;
end;

For l:=0 To o-1 Do //Только до индекса, который уже записан в массиве.
  memo2.Lines.Add(mass[1,l]); //Добавляем строку в Memo