Делфи.Файлы. Два текста в файлах содержат растущие последовательности целых чисел. Вывести в третий файл общие значения

[Jane_Air]

Написать процедуру
Два текста в файлах содержат растущие последовательности целых чисел,разделенных пропусками. Вывести в третий файл общие значения.
Помогите,очень прошу..

[SaLoKiN]

А где код? Что получилось уже?

[Jane_Air]

Не выводит в третий файл

program Project6;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const Nmax=100000;
type mass1=array[1..Nmax]of integer;
type mass2=array[1..Nmax]of integer;
type mass3=array[1..Nmax]of integer;
var f1,f2,f3:text;
    a,i,b,j,x,y,ij,z:integer;
    m1:mass1;
    m2:mass2;
    m3:mass3;
begin
i:=1;j:=1;ij:=1;

assign(f1,'f1.txt');
assign(f2,'f2.txt');
assign(f3,'f3.txt');

reset(f1);
reset(f2);
rewrite(f3);

while seekeof(f1) do
    begin
      read(f1,a);
      m1[i]:=a;
      inc(i);
    end;
x:=i-1;

while seekeof(f2) do
    begin
      read(f2,b);
      m2[j]:=b;
      inc(j);
    end;
y:=j-1;

for i:=1 to x do
    for j:=1 to y do
          begin
            if m1[i]=m2[j]
            then begin
                        m3[ij]:=m1[i];
                        inc(ij);
                        z:=ij;
                 end;
          end;
for ij:=1 to z do write (f3,m3[ij]);

close(f1);
close(f2);
close(f3);

readln;
end.

[SaLoKiN]

а чего не работает та?

[Vanta11a]

Почему бы вместо

for i:=1 to x do
    for j:=1 to y do
          begin
            if m1[i]=m2[j]
            then begin
                        m3[ij]:=m1[i];
                        inc(ij);
                        z:=ij;
                 end;
          end;
for ij:=1 to z do write (f3,m3[ij]);

не сделать

for i:=1 to x do
    for j:=1 to y do
          begin
            if m1[i]=m2[j]
            then begin
                        write (f3,m1[i]);
                 end;
          end;

?

[Jane_Air]

Почему бы вместо
Код:

for i:=1 to x do
for j:=1 to y do
begin
if m1[i]=m2[j]
then begin
m3[ij]:=m1[i];
inc(ij);
z:=ij;
end;
end;
for ij:=1 to z do write (f3,m3[ij]);

не сделать
Код:

for i:=1 to x do
for j:=1 to y do
begin
if m1[i]=m2[j]
then begin
write (f3,m1[i]);
end;
end;

?

Спасибо,уже поменяла!)

а чего не работает та?

Как сделать что бы в конце лишний ноль не выводило?

[SaLoKiN]

хм...а после исправления, все равно выводит?

[Jane_Air]

После того,что посоветовали,все равно выводило..
Но я уже нашла ошибку!Спасибо))

Вместо seekeof написала not eof

[BDA]

А если захочу подать файл с 100001 числом?
Условие подталкивает решать без всяких дополнительных массивов.

if (not eof(f1) and not eof(f2)) then
begin
    read(f1, a);
    read(f2, b);
    while (not eof(f1) and not eof(f2)) do
    begin
        if a < b then
            read(f1, a)
        else if a > b then
            read(f1, b);
        else
        begin
            write(f3, a, ' ');
            read(f1, a);
            read(f2, b);
        end;
    end;
    if a = b then
        write(f3, a);
end;

Если ничего не перепутал, то это весь код практически.

[Jane_Air]

А если захочу подать файл с 100001 числом?

Я просто не знаю,какое должно быть максимальное количество элементов..поэтому написала более менее большое число..)

if (not eof(f1) and not eof(f2)) then
begin
    read(f1, a);
    read(f2, b);
    while (not eof(f1) and not eof(f2)) do
    begin
        if a < b then
            read(f1, a)
        else if a > b then
            read(f1, b);
        else
        begin
            write(f3, a, ' ');
            read(f1, a);
            read(f2, b);
        end;
    end;
    if a = b then
        write(f3, a);
end

В третий файл вывело не все числа(