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.