Изменить код Pascal abc

[Chowder]

Как изменит код что бы вывод был не в фаил а на экран консоли?

Код: Выделить всё

uses crt;
var f,g: text;
    s: string;
    i: byte;
begin
assign(f,'D:\in.txt');
assign(g,'D:\out.txt');
reset(f); rewrite(g);
while not (eof(f)) do
      begin
      readln(f,s);
      if odd(length(s)) then s:=' '+s;
      for i:=1 to (50-length(s)) div 2 do
          s:=' '+s;
      writeln(g,s);
      end;
close(f); close(g);
end

[somewhere]

Заместо writeln(g,s) использовать writeln(s)

[Chowder]

Текст то выводится, но текст не выровненный по центру.

[Chowder]

Заместо writeln(g,s) использовать writeln(s)

текст выводиться, но выводиться не правильно

[somewhere]

а это уже другое задание) к тому же никто не знает как он должен выводится