Реализация сохранения и открытия Опции

[Artem7]

Как реализовать сохранение в файл?т.е чтобы можно было выбрать куда сохранять имя файла, и так же с открытием файла?!

Читал что через модуль Dos реализуется но че то почитал в нете но так и не нашёл полного описания
Вот процедуры сохранения и открытия а как сделать чтобы как в меню паскале можно было выбирать каталог имя файла и т.д?

Procedure Soxr;
Var i,j:integer;
Begin
    Assign(f,'ris.txt');Rewrite(f);
     For j:=19 to m do Begin
      For i:=3 to n do write(f,GetPixel(i,j),' ');
     writeln(f);
    End;
End;
Procedure Otkr;
Var i,j,p:integer;
Begin
    Assign(f,'ris.txt');Reset(f);
     For j:=19 to m do Begin
      For i:=3 to n do Begin read(f,p);Putpixel(i,j,p);End;
     readln(f);
    End;
End;