Из текстового файла записать в файл целых чисел все числа кратные заданному K - Turbo Pascal

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

Добрый вечер! Помогите написать код на Паскале,.

Решение задачи: «Из текстового файла записать в файл целых чисел все числа кратные заданному K»

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

...
readln(k);
assign(fin,'fin.txt');
assign(fout,'fout.dat');
reset(fin);
rewrite(fout);
while not eof(fin) do
 begin
  readln(fin,x);
  if x mod k = 0 then
   write(fout,x);
 end;
close(fin);
close(fout);
...

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

Строка readln(k); считывает значение переменной k из стандартного ввода.
Строка assign(fin,'fin.txt'); устанавливает имя файла для чтения (fin) на 'fin.txt'.
Строка assign(fout,'fout.dat'); устанавливает имя файла для записи (fout) на 'fout.dat'.
Строка reset(fin); сбрасывает файл чтения (fin).
Строка rewrite(fout); перезаписывает файл записи (fout).
В цикле while not eof(fin) do происходит чтение файла чтения (fin) до конца (eof(fin)).
Внутри цикла readln(fin,x); считывается число x из файла чтения (fin).
Строка if x mod k = 0 then проверяет, делится ли число x на k без остатка.
Если условие истинно (if x mod k = 0 then), то число x записывается в файл записи (fout).
Цикл while not eof(fin) do повторяется, пока не будет достигнут конец файла чтения (eof(fin)).
После окончания цикла close(fin); закрывает файл чтения (fin).
Аналогично, строка close(fout); закрывает файл записи (fout).
Код завершается, и файлы закрыты.