OnOff

Помогите!.. Нужно записать массив в txt файл и потом чтоб можно было обратно... Колличество чисел в массиве равно mv1..
вот часть задания, здесь переменый есть:
begin
clrscr;
writeln ('сколько чисел в последовательности( до ',n1,'): ');
readln (mv1);
writeln ('введите ',mv1,' целых чисел:');
for i:=1 to mv1 do
read (M1[i]);
readkey;
for k:=mv1 downto 2 do
begin
m:=1;
for i:=1 to k do
if M1[i] > M1[m] then m:=i;
MM:=M1[k];
M1[k]:=M1[m];
M1[m]:=MM;
end; {sorting}
writeln ('массив после сортировки
for i:=1 to mv1 do
write (M1[i],' ');
writeln;

ЭТО ТОЛЬКО ЧАСТЬ программы... ПОжалйста, помогите введеные в масив чмсла в файл записать... ПЛИЗ!!!))))

AlexZir

f:text - определяет текстовую файловую переменную в разделе переменных
assign(f,filename) - связывает файловую переменную с файлом на диске по его полному имени
reset(f) - Открывает существующий файл по чтению
rewrite(f) - Создает и открывает новый файл или перезаписывает существующий файл
append(f) - Открывает существующий файл для добавления
read(f, exp) - считывает в переменную exp значение из файла f
readln(f, exp) - считывает в переменную exp значение из файла f до признака конца строки
write(f, exp) - записывает значение переменной exp в файл f
writeln(f, exp) - записывает значение переменной exp в файл f и дописывает признак конца строки
eoln(f) - Возвращает состояние конца строки текстового файла (true, false).
eof(f) Возвращает состояние конца файла (true, false).
close(f) - Закрывает ранее открытый файл.

__________________
Убить всех человеков!