const
A= 'A.txt';
B= 'B.txt';
var InFile, OutFile: text;
N: integer;
begin
Assign( InFile, A); Reset( InFile);
Assign( OutFile, B); Rewrite( OutFile);
while not Eof(InFile) do begin
Readln(InFile, N);
Writeln(OutFile,N:6,N:6,N:6);
end;
Close( InFile); Close( OutFile);
end.
Я понимаю, что она делает. И даже понимаю почему. Я не пойму как её заставить записывать числа по порядку в одну строку.