Читал что через модуль 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;