Das Haus vom Nikolaus Konsolenanwendung

[Namenloser]

Du hast begin und end falsch gesetzt.Wenn du deinen Code ordentlich einrücken würdest, würde dir das auffallen:

Delphi-Quellcode:

program Project2;

uses
  Forms;

{$AppType Console}
var i,j:Integer;
begin
  for i:=1 to 10 do 
  begin
    writeln('x');
    readln;
    if (i=1) then 
    begin
      for j:=1 to 10 do
        write('x');
      read;
    end; // if
  end; // for
end.