Создание окна, в котором можно будет указать путь до файла

program prog4;
var i,k,a,b:longint;
vib,vib2:byte;
s,t.p:string;
Inp,Out:text;
label M1,M2,M3,M4,prog,close1,vibfail,Exit1;
begin
writeln('Tip dannih: 1 - klaviatura; 2 - iz faila');
readln(vib);
case vib of
1: goto M1;
2: goto M2;
end;
M1:
begin
writeln('Vvedite k');
readln(k);
goto prog;
end;
    M2:
    begin
    assign(inp,'in7(89).txt');
    reset(inp);
    read(inp,k);
    end;
 prog:
 begin
 s:='1';
 a:=1;
 for i:=1 to k do begin
 a:=a+b;
 str(a,t);
 s:=s+t;
 b:=a-b;
 goto VibFail;
 end;
VibFail:
begin
writeln('Vibirite sposob zapisi: 1 - na ekran; 2 - v fail ');
readln(vib2);
case vib2 of
1: goto M4;
2: goto M3;
end;
M3:
begin
assign(Out,'Out7(89).txt');
rewrite(out);
writeln(out,s);
writeln(out,s[k]);
close(out);
goto exit1;
end;
M4:
begin
writeln(s);
writeln(s[k]);
end;
end;
end;
Exit1:
close(inp);
end;

{$reference System.Windows.Forms.dll}
 
begin
  var d := new System.Windows.Forms.OpenFileDialog;
  
  var thr := new System.Threading.Thread(()->
  begin
    
    case d.ShowDialog of
      System.Windows.Forms.DialogResult.OK: ;//пользователь выбрал файл
      else ;//а тут значит если вы не выбрал
    end;
    
  end);
  thr.ApartmentState := System.Threading.ApartmentState.STA;//обязательно STA, основной поток всегда MTA, а OpenFileDialog с ним не совместим
  thr.Start;
  thr.Join;
  
  d.FileName.Println;
end.