Создать новый файл, в который будут записываться числа по правилу

Даны два файла с одинаковым количеством компонентов, компонентами которых являются натуральные числа. Создать новый файл, в который будут записываться числа по следующему правилу. Берется первое число из первого файла и первое из второго. Если одно из них делится нацело на другое, то их частное записывается в новый файл. Затем берется второе число из первого и второе из второго и т. д. Входные файлы «1.txt» и «2.txt» содержат натуральные числа

Program PascalGuru;
 
var g,f,last:text;
i,j:integer;
 
 
begin
assign (f,'1.txt' ); reset (f);
assign (g,'2.txt' ); reset (g);
assign (last,'3.txt' ); rewrite(last);
  i:=0;
while not eof(f) do begin
readln(f,i);
readln(g,j);
 
if i mod j=0 then writeln(last,i/j:0:0) else
if j mod i=0 then writeln(last,j/i:0:0)
end;
 
close(f); close(g); close(last);
writeln('Reshennye dannye uspeshno zapisany v fail "3.txt"');
readln;
end.