Подскажите пожалуйста что я неправильно делаю...
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.