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

[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;

[IUnknown]

Поиск по форуму по ключевым словам +FindFirs* +FindNex* выдаст тебе кучу примеров, как ищутся папки/файлы в текущей директории. Что касается твой задачи - ты бы больше информации сразу давал - было бы лучше. Это у тебя все в текстовом режиме, или в графическом? (логично, правда, что Paint работает в графике, на фиг ему вообще выходить в текстовый режим? Но ты же хочешь "как в Паскале", а там - текст. Вот и понимай после этого как хочешь.)