Массив.Паскаль

[Soma]

Составила прогамму в паскале к задаче,только она получилась очень мудрёная,помогите отладить,пожалуйста



Условие задачи:
Выполнить обработку элементов прямоугольной матрицы А, имеющей N строк и M столбцов. Добавить к матрице столбец и вставить её под номером L.

PHP код:

program mat;
uses crt;
var
i,j,N,M,L:integer;
a:array[1..100,1..100] of integer;
begin clrscr;
randomize;
writeln('vvedite kolichestvo strok N');
readln(N);
writeln('vvedite kolichestvo stolbcov M');
readln(M);

for i:=1 to N do
for j:=1 to M do
a[i,j]:=random(10);

for i:=1 to N do begin
for j:=1 to M do
write(a[i,j]:4);
writeln;
end;
readln;

writeln('vvedite nomer L');
read(L);
readln;

for i:=1 to N do
for j:=M downto L do
a[i,j+1]:=a[i,j];

for i:=1to N do
a[i,L]:=random(10);

for i:=1 to N do begin
for j:=1 to M+1 do begin
write(a[i,j]:4);
end;
writeln;
end;
readkey;
end.