Das Haus vom Nikolaus Konsolenanwendung

[hotkey]

Delphi-Quellcode:

program Project2;

uses
  Forms;

{$AppType Console}
var i,j:Integer;
begin
  for i:=1 to 10 do
  begin
    writeln('x');
    readln; // Wenn ich das lösche , funktioniert garnix mehr
    if (i=10) then
    begin
      for j:=1 to 10 do
        write('x');
      read; -> // Wenn ich das lösche , erscheint wieder nur ein x..
    end;
  end;
end.