Вывести следующие числа таким образом — Pascal(Паскаль)

1
22
333
4444
55555

Uses
 Crt;
Var
 i,j:byte;
 a:array[1..5,1..5] of byte;
Begin
ClrScr;
For i:=1 to 5 do
Begin
For j:=1 to i do
Begin
 a[i,j]:=i;
 write(a[i,j]);
end;
writeln;
end;
readkey
end.