Работа с Файлом и символом

[Otar4ik]

Дан текстовый файл f. Вывести все его строки, содержащие более 60 символов.Не открывает и не считывает файл

program lab2_2;

Uses formsAbc;

var
  f: text;
  opf: openfiledialog;
  bt1: button;
  s: string;
  tb: TextBox;
  
procedure OpenFile;

begin
  opf := new OpenFileDialog();
  if opf.ShowDialog() = DialogResult.OK then
  begin
    assign(f, opf.FileName);
    reset(f);
    while not SeekEof(f) do
    begin
      while not Eoln(f) do
      begin
        read(f, s);
      end;
      if Length(s) >60 then
      writeln(s);
      close(f);
    end;
  end;
   tb.AddLine(s);
end;

procedure main;
begin
  
  bt1 := new Button('Открыть');
  bt1.Click += OpenFile;
  tb := new TextBox;
  tb.Dock := DockStyle.Fill;
end;

begin
  main; 
end.