Составить список всех квартир которым письма были высланы почтой - Pascal

Формулировка задачи:

Здравствуйте! помогите решить задачу!!! пожалуйста, срочно! На собрание жильцов n-квартирного дома (0<N<=100) присутствовали представители не всех квартир. Чтобы донести результаты решения общего собрания отсутствующим жильцам, администрация дома решила написать информационные письма. Для тех жильцов, чьи соседи (номер квартиры больше на 1) присутствовали на собрании, информационные письма были переданы. Для остальных письма были высланы по почте. Впоследствии, проанализировав все данные, секретарю необходимо составить список всех квартир которым письма были высланы почтой. Формат входного файла INPUT.TXT: N (число квартир в доме; 0<N<=100) А(N) список номеров квартир, жильцы которых пришли на собрание Формат выходного файла OUTPUT.TXT: Список номеров квартир, жильцам которых письма были высланы почтой Пример: INPUT.TXT 10 10 2 4 9 OUTPUT.TXT 5 6 7 решение нужно в Паскале

Решение задачи: «Составить список всех квартир которым письма были высланы почтой»

Листинг программы

var
a:array[1..101]of byte;
k,i,n:integer;
f:text;
begin
assign(f,'input.txt');
reset(f);
read(f,n);
for i:=1 to n do
a[i]:=0;
while not Eof(f) do
begin
read (f,k);
a[k]:=1;
end;
close(f);
assign(f,'output.txt');
rewrite(f);
for i:=1 to n do
if (a[i]=0)and(a[i+1]=0)then write(f,i,' ');
close(f);
writeln;
end.

Объяснение кода листинга программы

В этом коде используется язык программирования Pascal. Программа выполняет следующие действия:

Создается массив a размером 101 элемент, который будет использоваться для отслеживания отправленных писем.
Создаются три переменные: k, i и n. k используется для хранения текущего номера квартиры, i используется как счетчик для обхода массива, а n содержит общее количество квартир.
Открывается файл input.txt для чтения данных.
Файл input.txt считывается построчно до тех пор, пока не будет достигнут конец файла. Для каждой строки выполняется следующее действие: номер квартиры записывается в массив a.
Файл output.txt открывается для записи данных.
Если текущий элемент массива a равен 0, и следующий элемент также равен 0, то номер квартиры записывается в файл output.txt.
Файл output.txt закрывается, и выводится сообщение на консоль.