Алгоритм заполнения массива текстом - PascalABC.NET

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

Слепил вот такой алгоритм. Проблема в том, что введённый текст не выводится полностью, а только первая строка. Также проблема в том, что если количество символов меньше количества свободных мест в таблице, то на 20 строке выводит ошибку, что индекс выходит за границы массива. Что не так?

Program perestanovka;
label 1;
var
r, j, k: integer;
s, s1: string;
a:array [0..100,0..100] of char;
begin
1:writeln('Введите число строк от 2 до 20');
readln(k);
writeln('Введите число столбцов от 2 до 20');
readln(j); 
writeln('Введите исходный текст');
readln(s);
if k*j<length(s) then goto 1;
writeln('Выберите режим: 1-Шифрование, 2-Дешифрование');
readln(r);
if r=1 then 
begin
for var i:=1 to round(k*j) do
a[(i-1)mod (k+1),(i-1)div (k+1)]:=s[i];
for var i:=1 to k do
begin
for var z:=1 to j do
write(a[i,z]:2);
writeln;
end
end
end.

Решение задачи: «Алгоритм заполнения массива текстом»

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

for var i:=1 to min(k*j, Length(s)) do

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

В данном коде используется цикл for с переменной i, которая начинается с 1 и идет до min(k*j, Length(s)).
Переменная k представляет собой количество строк, которые нужно разделить.
Переменная j представляет собой количество символов в каждой строке.
Переменная s представляет собой исходную строку, которую нужно разделить на подстроки.
Внутри цикла i происходит заполнение массива подстроками из исходной строки.
Значение i используется как индекс для выбора соответствующего символа из строки s.
Каждая подстрока добавляется в массив с индексом i.
Если длина подстроки превышает значение j, то она обрезается до этого значения.
Если количество подстрок, которые можно получить из исходной строки, меньше, чем указано в переменной k, то оставшиеся подстроки заполняются пустыми строками.