Напечать литеры массива S в виде таблицы - PascalABC.NET

Формулировка задачи:

Помогите С помощью следующего фрагмента программы напечатайте литеры si массива s в виде таблицы: S1S2S3...Sn-1Sn S2S3S4...SnS1 ....... SnS1S2...Sn-2Sn-1

const
n=20;
var
s:array[1..n] of char;

Решение задачи: «Напечать литеры массива S в виде таблицы»

Листинг программы

begin
  var S := 'abcdefghijklmn';
 
  for var i := 0 to s.Length - 1 do
    writeln(s.Substring(i, s.Length - i) + s.Substring(0, i));
end.

Объяснение кода листинга программы

В данном коде на языке PascalABC.Net происходит следующее:

Объявляется переменная S типа строка со значением 'abcdefghijklmn'.
Запускается цикл for, который начинается с i = 0 и выполняется до s.Length - 1.
Внутри цикла выполняется два действия: a. Выводится на печать значение s.Substring(i, s.Length - i). b. Выводится на печать значение s.Substring(0, i).
Код завершается.