⇢ 
Помогите пожалуйста найти где моя оплошность
program lab_6;
uses crt;
const n=5;
m=7;
p=2;
q=5;
type matr = array[1..n, 1..m] of integer;
var
a:matr;
i,j,x:byte;
begin
writeln;
writeln(' Автор - Крупина А. И. , студентка гр. ББИ-11');
writeln(' вариант №5');
writeln(' дана матрица А (nxm) и целые числа p и q');
writeln(' преобразовать матрицу А так, чтобы строка с исходным номером p непосредственно следовала за строкой с исходным номером q, сохранив порядок следования остальных строк');
writeln;
clrscr;
writeln('Исходная матрица');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(90)+10;
write(a[i,j]:4);
end;
writeln;
end;
repeat
writeln('q = ');
readln(q);
writeln('p = ');
readln(p);
if p>q then
for j:=1 to m do
begin
x:=a[q,j];
for i:=q to p-1 do
a[i,j]:=a[i+1,j];
a[p,j]:=x;
end;
if q>p then
for j:=1 to m do
begin
x:=a[q,j];
for i:=q downto p+2 do
a[i,j]:=a[i-1,j];
a[p+1,j]:=x;
end;
writeln('Результат: ');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
readln;
end. <===== program lab_6;
uses crt;
const n=5;
m=7;
p=2;
q=5;
type matr = array[1..n, 1..m] of integer;
var
a:matr;
i,j,x:byte;
begin
writeln;
writeln(' Автор - Крупина А. И. , студентка гр. ББИ-11');
writeln(' вариант №5');
writeln(' дана матрица А (nxm) и целые числа p и q');
writeln(' преобразовать матрицу А так, чтобы строка с исходным номером p непосредственно следовала за строкой с исходным номером q, сохранив порядок следования остальных строк');
writeln;
clrscr;
writeln('Исходная матрица');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(90)+10;
write(a[i,j]:4);
end;
writeln;
end;
repeat
writeln('q = ');
readln(q);
writeln('p = ');
readln(p);
if p>q then
for j:=1 to m do
begin
x:=a[q,j];
for i:=q to p-1 do
a[i,j]:=a[i+1,j];
a[p,j]:=x;
end;
if q>p then
for j:=1 to m do
begin
x:=a[q,j];
for i:=q downto p+2 do
a[i,j]:=a[i-1,j];
a[p+1,j]:=x;
end;
writeln('Результат: ');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
readln;
end. <===== Встречено 'end', а ожидалось ';'
блин, 2 раза скопировалось
program lab_6;
uses crt;
cоnst n=5;
m=7;
p=2;
q=5;
type matr = array[1..n, 1..m] of integer;
var
a:matr;
i,j,x:byte;
begin
writeln;
writeln(' Автор - Крупина А. И. , студентка гр. ББИ-11');
writeln(' вариант №5');
writeln(' дана матрица А (nxm) и целые числа p и q');
writeln(' преобразовать матрицу А так, чтобы строка с исходным номером p непосредственно следовала за строкой с исходным номером q, сохранив порядок следования остальных строк');
writeln;
clrscr;
writeln('Исходная матрица');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(90)+10;
write(a[i,j]:4);
end;
writeln;
end;
repeat
writeln('q = ');
readln(q);
writeln('p = ');
readln(p);
if p>q then
for j:=1 to m do
begin
x:=a[q,j];
for i:=q to p-1 do
a[i,j]:=a[i+1,j];
a[p,j]:=x;
end;
if q>p then
for j:=1 to m do
begin
x:=a[q,j];
for i:=q downto p+2 do
a[i,j]:=a[i-1,j];
a[p+1,j]:=x;
end;
writeln('Результат: ');
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:4);
writeln;
end;
readln;
end. <===== program lab_6;
