Здравствуйте, уважаемые эксперты! Прошу вас ответить на следующий вопрос:
Код программы:
[code lang=pascal]procedure TForm1.ButtonFindClick(Sender: TObject);
var i,j,nom,k,Kol:integer; //объявляем переменные
sw,s:string;
begin
if trim(EditLetter.Text)=' ' then // делаем проверку на ввод символа
begin
ShowMessage ('Введите символ');//вывод сообщения
EditLetter.SetFocus;
Exit;
end;
Kol:=0; // присваиваем значения переменным
Nom:=1;
for i:=0 to MemoText.Lines.Count -1 do //считываем файл
begin
s:=MemoText.Lines[i];
if s='' then continue; // делаем отбор пустых строк
if AnsiUpperCase(s[1])= AnsiUpperCase(EditLetter.Text[1]) then
begin
nom:=nom + 1;
MemoResuls.Lines.Add(IntToStr(nom) + '.' + s);
end;
for j:=1 to length(s) do
if s[j]='' then
begin
for k:=1 to length(s) do
if AnsiUpperCase(sw[k])= AnsiUpperCase(EditLetter.Text[1]) then
begin
kol:= kol +1;
break;
end;
sw:='';
end
else
sw:=sw + s[j];
end;
LabelKol.Caption:= 'Букву ' + EditLetter.Text + ' содержит' +
IntToStr(Kol) + ' слов';
LabelKol.Visible:=true;



end;

procedure TForm1.ButtonReadClick(Sender: TObject);
Var f:textFile;
s:string; // назначаем переменную
begin
if OpenDialog1.Execute then
begin
AssignFile(f, OpenDialog1.FileName);
Reset(f);
CloseFile(f);

End;
EditLetter.SetFocus;
end;

procedure TForm1.MemoTextChange(Sender: TObject);
var f:textfile;
s:string;
begin
MemoText.Lines.Clear;
while not eof(f) do
Begin
Readln(f,s);
MemoText.Lines.Add(s);
CloseFile(f);
end;

end;

end.[/code]

Суть программы, что она должна открыть текстовый документ(стихотворение) и вывести его в Memo, код прописал, программа запускается, но файл не открывает. Работу приложен, делал по описанию (Часть 1)