Напечатайте все подслова данного слова А, начинающиеся с его первой буквы, по возрастанию их длин — Pascal(Паскаль)

program p40;
  uses crt;
  var i:byte;
      a:string;
begin
  clrscr;
  writeln('a=');readln(a) ;
  for i:=1 to length(a) do
  writeln(copy(a,1,i));
  readln;
end.