Чтение из файла и вывод массивов - Pascal ABC

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

Здравствуйте! Требуется для решения одной задачи три массива. Их чтение происходит из файла, далее с ними работа и потом на выбор: либо результат на экран, либо в файл. Собственно вопрос: как прочитать файл, выявить три различных массива и вывести их потом в файл? Каждый массив записывается в отдельную строку, кол-во элементов заранее неизвестно(у каждого массива может быть разное кол-во элементов).

Решение задачи: «Чтение из файла и вывод массивов»

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

var a,b,c:array[1..100] of integer;
    f:text;
    s:string;
    k,m,n,i:integer;
begin
assign(f,'1.txt');
reset(f);
while not eof(f) do
 begin
  k:=0;
  while not eoln(f) do
   begin
    k:=k+1;
    read(f,a[k]);
   end;
  readln(f,s);
  m:=0;
  while not eoln(f) do
   begin
    m:=m+1;
    read(f,b[m]);
   end;
  readln(f,s);
  n:=0;
  while not eoln(f) do
   begin
    n:=n+1;
    read(f,c[n]);
   end;
 end;
 close(f);
 assign(f,'2.txt');
 rewrite(f);
 for i:=1 to k do
 write(f,' ',a[i]);
 writeln(f);
 for i:=1 to m do
 write(f,' ',b[i]);
 writeln(f);
 for i:=1 to n do
 write(f,' ',c[i]);
 close(f);
 end.

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

Создаются переменные a, b, c типа array[1..100] of integer, а также переменные f, s и k, m, n, i типа integer.
Задается имя файла для чтения '1.txt'.
Функция reset(f) устанавливает позицию читающего устройства на начало файла.
В цикле while не происходит ошибок (не EOF и не EOLN) считываются числа из файла и сохраняются в соответствующие элементы массива a, b или c.
После каждого чтения файла вызывается функция readln(f, s), которая считывает строку и записывает ее в переменную s.
После последнего чтения файла вызывается функция close(f).
Задается имя файла для записи '2.txt'.
В цикле for от 1 до k (количество прочитанных элементов массива a) выводится каждый элемент массива a.
В цикле for от 1 до m (количество прочитанных элементов массива b) выводится каждый элемент массива b.
В цикле for от 1 до n (количество прочитанных элементов массива c) выводится каждый элемент массива c.
Вызывается функция close(f).