[bloodmaster89]

Здесь мы считываем Xa и Xb, в которых содержаться координаты точек

Код:

while not Seekeof(outfile) do  begin
read(outfile, Xa); 
read(outfile, Yb);
.......
end

Внутри этого цикла хотел поставить проверку на принадлежность точек
(которые являются центрами некоторых окружностей), другим точкам которые находятся внутри окружности и записать их в конец того же файла.

Код:

 for YbNew:=0 to Ybmax do begin // В цикле проверяем их на некоторое условие
for XaNew:=0 to Xamax do begin
AssignFile(outfile, 'outfiles.txt');
ReWrite(outfile);
if  (dtf*beta)>=sqrt(sqr(XaNew-Xa)+sqr(YbNew-Yb)) then begin
Append(outfile);
writeln(outfile, XaNew,' ',YbNew); // если условие удовлетворено, записываем полученные переменные в конец того же файла.
Image1.Canvas.Pixels[x0,y0]:=RGB(255, 0, 0);
x0:=x0+mashi;
end
else begin
x0:=x0+mashi;
end;
end;
Image1.Canvas.Pixels[x0,y0]:=RGB(255, 0, 0);
y0:=y0+mashi;
end;

Возник еще вопрос. Как можно скопировать содержимое нового файла outFile в конец файла infile?