请大家帮我看一下一个命令行程序，我不知道有什么错。
程序如下：

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  a,i,ii:integer;

begin
  read(a);
  if not (a<1) then
  begin
    for i:=1 to a do
      begin
        for ii:=1 to i do
          begin
            write('*');
          end;
        writeln();
      end;
  end;
  readln();
end.


错误信息如下：

[错误] Project2.dpr(20): 'END' expected but ')' found
[错误] Project2.dpr(22): '.' expected but ';' found

多谢帮忙！重赏！