Текстовый файл, содержащий числа Опции

[forMator]

Задача: Дан текстовый файл, содержащий числовую информацию. Создать одномерный массив по правилу: количество элементов массива считываются с первой позиции второй строки файла, а элементы массива считываются из файла начиная с первой позиции третьей строки. Из элементов кратных первому элементу массива A создать массив B и вывести его в другой текстовый файл.
Подскажите пожалуйста что я неправильно делаю...

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var t1,t2:textfile;
i,j,n:integer;
a,b:array[1..10] of integer;

begin
  { TODO -oUser -cConsole Main : Insert code here }
  assignfile(t1,'C:\iii.txt');
  assignfile(t2,'C:\lll.txt');
  reset(t1);
  rewrite(t2);
  readln(t1);
  for i:=1 to n do read(t1,a[i]);
  j:=0;
  for i:=1 to n do
  if a[i] mod a[1] = 0 then begin j:=j+1; b[j]:=a[i];
  end;
  for i:=1 to j do write(t2,b[i],' ');
  closefile(t1);
  closefile(t2);
  readln;
end.
 

[Lapp]

Подскажите пожалуйста что я неправильно делаю...

Ты забываешь считать количество чисел, которое по условию на второй строке. Вставь строчку тут:

  readln(t1);
  ReadLn(t1,n);  { <<== Здесь читать число элементов }
  for i:=1 to n do read(t1,a[i]);

[forMator]

Спасибо большое!!
Подскажите пожалуйста, а как считывать количество элементов с четвертой позиции второй строки??

[Lapp]

а как считывать количество элементов с четвертой позиции второй строки??

Ну, можно так:

var c:char;
...
Read(t1,c); Read(t1,c); Read(t1,c);
ReadLn(t1,n);