Использование Crt и Output в Pascal ABC

В одной программе хочу использовать и вывод в отдельный файл и на экран, но выводится только в файл, несмотря на использование модуля Crt. Как прописать в программе вывод на экран при включенном выводе в файл? Код (..=ненужная для вопроса часть):
..
var N, I, p1,p2 : integer; players:array[1..64] of string; pl:string; plcom : array[1..64] of boolean;
begin
assign(output, 'сетка. txt'); rewrite(output);
readln(N);
..
..
begin
..
end;
for i:=1 to (N div 2) do
begin
..
write(players[p1], ' vs ', players[p2]);
writeln;
end;
end.