Как значение Length(list[i]) string, присвоить значение s[i,1] integer?

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
list:TStringList;
i:Integer;
begin
list :=TStringList.Create;
s :=Edit1.Text; //вводим предложение
    ExtractStrings([';', ',','.','?','!',':',' '], [' '], PChar(s), list); // с учетом возможных разделителей
        Memo1.Lines.Add('Количество слов: '+IntToStr(list.Count));
 
        Memo1.Lines.Add('');
    for i := 0 to list.Count-1 do
    Memo1.Lines.Add('Длина '+IntToStr(i+1)+'-го слова = '+IntToStr(Length(list[i])));
    list.Free;
    end;

for i := 0 to list.Count-1 do
    begin
    Memo1.Lines.Add('Длина '+IntToStr(i+1)+'-го слова = '+IntToStr(Length(list[i])));
    ar[i]:= length(list[i]);
    end;
    list.Free;

for i := 0 to list.Count-1 do
    begin
    Memo1.Lines.Add('Длина '+IntToStr(i+1)+'-го слова = '+IntToStr(Length(list[i])));
    s[i,1]:= length(list[i]);  
    end;
    list.Free;

for i := 1 to Length(t) do
begin
Memo1.Lines.Add('Длина '+IntToStr(i+1)+'-го слова = '+IntToStr(Length(list[i])));
s[i,1]:= length(list[i]);
end;
list.Free;

for i := 1 to Length(t) do

Memo1.Lines.Add('Длина '+IntToStr(i+1)+'-го слова = '+IntToStr(Length(list[i])));

for i := 0 to list.Count-1 do
    begin
    Memo1.Lines.Add('Длина '+IntToStr(i+1)+'-го слова = '+IntToStr(Length(list[i])));
    s[i,1]:= length(list[i]);
    end;
    list.Free;

  str := Edit1.Text + ' '; //пробел для последнего слова
  for i := 1 to Length(Str) do
  begin
    inc(sym);
    case ord(Str[i]) of
      32:
        begin
          inc(sl);
ы[i,1]:=sym-1;
         Memo1.Lines.Add(IntToStr(sl) + ' слово ' + IntToStr(s[i,1]) + ' символов');
          sym := 0;
        end;
    end;
  end;
end;

var
  s: array [1..10,1..10] of Integer; { глобальный массив s }
 
procedure t1;
var
  s: String; { локальная переменная s }
begin
  {вот тут массив s был бы доступен, но по имени его не достать}
  {поскольку s означает локальную переменную (она "ближе") и из-за нее глобальная s не видна }
end;
 
procedure t2;
var
  ts: String;
begin
  {вот тут глобальный массив s доступен по имени }
end;