8. Моделирование текстового редактора.

Паскаль АВС

Напишите процедуру Save с параметрами: сохраняемый массив, количество строк в массиве, имя файла для сохранения. Перед вызовом процедуры обеспечьте диалог с пользователем для выбора имени файла.

Const

n=5;

type

ta=array[1 ... n] of string;

var ar:ta; i:integer;

path:string;

procedure Save (ar:ta; n:integer; path:string) ;

var i:integer;

f:text;

begin;

assign (f, path) ;

rewrite (f) ;

for i:=1 to n do

writeln (f, ar[i]) ;

close (f) ;

end;

begin;

writeln ('Введите массив:') ;

for i:=1 to n do

readln (ar[i]) ;

writeln ('Введите путь к файлу:') ;

readln (path) ;

Save (ar, n, path) ;

end.