Программа, сдвигающая строки матрици вверх на одну и ставящая первую строку на место последней

var
a:array[1..100,1..100]of integer;
b:array[1..100]of integer;
m,n,i,j:integer;
begin
randomize;
write('kol-vo strok=');
readln(m); 
write('kol-vo stolbcov=');
readln(n);
for i:=1 to m do
for j:=1 to n do
a[i,j]:=random(10);
writeln('ishodnaya matrica');
for i:=1 to m do
begin
for j:=1 to n do
write (a[i,j],' ');
writeln;
end;
for j:=1 to n do
b[j]:=a[1,j];
for i:=1 to m do
for j:=1 to n do
if i=m then a[i,j]:=b[j] else
a[i,j]:=a[i+1,j];
writeln('novaya matrica');
for i:=1 to m do
begin
for j:=1 to n do
write (a[i,j],' ');
writeln;
end;
readln;
end.