Ошибка [Error] Unit1.pas(38): Incompatible types: 'Array' and 'String'

procedure TForm1.BitBtn1Click(Sender: TObject);
const max=100;
var s:array[1..max] of string;
l,n,i,k:integer;
begin
n:=strtoint(edit1.Text);
for i:=1 to n do
s:=memo1.lines[i-1];
k:=0;
for i:=1 to n do begin
l:=length(s);
if (pos(s[l],'аоиуеыэюяАОИУЕЭЮЯ')>0) and (pos(s[l],'аоиуеыэюяАОИУЕЭЮЯ')>0) then
k:=k+1;
end;
label2.Caption:=inttostr(k);
end;

s[i]:=memo1.lines[i-1];

procedure TForm1.BitBtn1Click(Sender: TObject);
var 
  s: of string;
  n,i,k : integer;
begin
  n:=strtoint(edit1.Text);
  if memo1.lines.Count<n then begin 
      ShowMessage('У Вас строк в Memo меньше, чем Вы задали N в edit1! Выходим.. ');
      Exit;
 end;
 k:=0;
 for i:=1 to n do begin
   s := memo1.lines[i-1];
   if Length(s)>0 then
      if pos(s[1],'аоиуеыэюяАОИУЕЭЮЯ')>0 then Inc(k);
 end;
 label2.Caption := inttostr(k);
end;