新手求救

program mother;
var a,b,c,i,j:longint;
begin
read (a);
if a<2013 then
begin
for b:=1 to 10 do
write('С праздником! ',' ','Mom, festival happiness, you were laborious',' ','Dia da Mae',' ','Buon Compleanno!',' ','Alles Gute zum Geburtstag!',' ','Joyeux Anniversaire !',' ','妈妈，母亲节快乐！',' ');
writeln;
end;
for i:=1 to 3 do
begin
for j:=1 to (3-i)do write(' ');
for j:=1 to (2*i-1)do write('*');
for j:=1 to (6-2*i)do write(' ');
for j:=1 to (2*i-1)do write('*');
writeln;
end;
for i:=1 to 5 do
begin
for j:=1 to (i-1)do write(' ');
for j:=1 to (12-2*i)do write('*');
writeln;
end;
readln;
end.
end.
begin
writeln;
write('+100 凌凌,酶谱稼眷恐! ----------另郸愧 ');
end;
end.
这个程序中'+100 凌凌,酶谱稼眷恐! ----------另郸愧 '为什么输出不了？？？
编的可能比较乱。