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

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]);