Паскаль. Помогите с решением. много раз пытались решить, но в ответе даёт не то, что нужно. Заранее спасибо

Нужно написать любое слово в столбик
а)Например:
слово
слов
сло
сл
с
б)Например:
с
сл
сло
слов
слово

// PascalABC.NET 3.2, сборка 1425 от 22.04.2017// Внимание! Если программа не работает, обновите версию!begin  var s:=ReadlnString('Вводите:');  for var i:=1 to s.Length do s[:i+1].Println;  Writeln;  for var i:=s.Length downto 1 do s[:i+1].Println;end.ПримерВводите: словосслслословсловословословслослс