Перевести с Delphi на C#. Найти слово, начинающееся буквой а и оканчивающееся буквой я

procedure TForm1.BitBtn1Click(Sender: TObject); 
var 
str:TStringList; 
s, mes:string; 
i:integer; 
begin 
str:=TStringList.Create; 
s:=Memo1.lines.Text; 
for i:=0 to Length(s) - 1 do 
if s[i]=' ' then s[i]:=#10; 
memo1.Lines.Text:=s; 
for i:=0 to Memo1.Lines.Count - 1 do 
if Memo1.Lines[i]='' then Memo1.Lines.Delete(i); 
Str.AddStrings(Memo1.Lines); 
mes:=''; 
for i:=0 to str.Count - 1 do 
begin 
s:=str[i]; 
if s[Length(s)]<>'.' then 
begin 
if (LowerCase(s[1])=LowerCase('А')) and (LowerCase(s[Length(s)])=LowerCase('Я')) or (LowerCase(s[1])=LowerCase('а')) and (LowerCase(s[Length(s)])=LowerCase('я')) then 
Mes:=Mes+(str[i])+#13#10; 
end 
else if (LowerCase(s[1])=LowerCase('А')) and (LowerCase(s[Length(s)-1])=LowerCase('Я')) or (LowerCase(s[1])=LowerCase('а')) and (LowerCase(s[Length(s)])=LowerCase('я')) then 
Mes:=Mes+(str[i])+#13#10; 
end; 
memo1.Text:=str[0]; 
for i:=1 to str.Count - 1 do 
memo1.text:=memo1.text+' '+str[i]; 
if mes='' then ShowMessage('Таких слов нет') 
else 
Showmessage(Mes); 
str.free; 
end; 
end.