Ввод данных пользователем в матрицу произвольного размера - Pascal

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

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

Uses crt;
var
p,q:integer;
i,j:word;
arr1:array[1..100]of integer;
begin
clrscr; 
Writeln; 
Writeln('Введите размерность матрицы:'); 
textcolor(white); 
repeat 
{$I-} 
write('q : '); 
Readln(q); 
{$I+} 
textcolor(red); 
if IOResult = 0 then else writeln('Некорректный ввод. Попробуйте снова'); 
if (q<=0) and (q>26) then writeln(Некорректный ввод. Попробуйте снова.'); 
textcolor(white); 
until (q>0) and (q<=26); 
repeat 
{$I-} 
write('p : '); 
Readln(p); 
{$I+} 
textcolor(red); 
if IOResult = 0 then else writeln('&#141;Некорректный ввод. Попробуйте снова'); 
if p<=0 then writeln('&#141;Некорректный ввод. Попробуйте снова'); 
if p>26 then writeln('Некорректный ввод. Попробуйте снова'); 
textcolor(white); 
until (p>0) and (p<=26); 
Writeln('Введите '); 
Writeln; 
For i:=1 to q do begin 
For j:=1 to p do begin 
repeat 
gotoXY(j*6-4, i+7); 
write(' '); 
gotoXY(j*6-4, i+7); 
{$I-} 
write(': '); 
Readln(arr1[i,j]); 
{$I+} 
if IOResult = 0 then break else continue; 
until (q>0) and (q<=26); 
End; 
End; 
Delay(150);
end.

Решение задачи: «Ввод данных пользователем в матрицу произвольного размера»

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

Readln(arr1[i,j]);

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

Код предполагает, что пользователь будет вводить данные для заполнения матрицы. Номер элемента матрицы (i, j) определяется размером матрицы, который в данном случае не указан. Предполагается, что пользователь будет вводить данные по одному элементу за раз. Вот пример того, как это может выглядеть в виде списка:

Создается пустая матрица arr1.
Пользователю предлагается ввести данные для первого элемента матрицы (i=0, j=0).
Пользователь вводит данные для первого элемента матрицы.
Значение введенных данных сохраняется в элементе arr1[0,0].
Пользователю предлагается ввести данные для второго элемента матрицы (i=0, j=1).
Пользователь вводит данные для второго элемента матрицы.
Значение введенных данных сохраняется в элементе arr1[0,1].
И так далее, пока пользователь не введет данные для всех элементов матрицы. Важно отметить, что в данном коде не обрабатываются ошибки, связанные с неправильным размером матрицы или отсутствием ввода со стороны пользователя.