CTPEJlOK

Текст задания:
Составить процедуру (или функцию), которая переставляет в обратном порядке k элементов массива A, начиная i-го (числа i и k задается пользователем): A[1], A[2], …, A[i–1], A[i+k], A[i+k–1], …, A[i+1], A[i], A[i+k+1], …, A[n].
Следующие действия должны выполняться отдельными процедурами (и/или функциями):
1) заполнение массива случайными числами из заданного интервала;
2) вывод массива на экран;
3) заполнение массива нулями (инициализация);
4) сохранение массива в текстовый файл;
5) чтение массива из текстового файла;
6) удаление нескольких элементов из указанного места (со сдвигом);
7) добавление нескольких элементов в указанное место (со сдвигом). Процедуры (и/или функции) должны работать с массивами как с параметрами, но не как с глобальными переменными.

rew

procedure mastofile(arr: mas; fd: file of integer);
var i: integer;
begin
rewrite(fd);
for i:=0 to length(arr)-1 do
write(fd, arr[i]);
close(fd)
end;
procedure filetomas(fd: file of integer);
var i: integer; arr: mas;
begin
reset(fd);
setlength(arr, filesize(fd));
for i:=0 to high(arr) do
read(fd, arr[i]);
end;

Начертательная

Ну цикл будет примерно таким