вот...сделала...всё работает...мне просто нужно сдвинуть...но...правильно работает только при вводе определённых данных в read (a[i])...вообщем не заменяет первый в строке элемент последним, который по идеи должен после сдвига стать на его позицию
(
program ;
uses crt;
var
a:array [1..100] of integer;
s:array [1..100, 1..100] of integer;
m,n,i,j,k,b:integer;
begin
writeln ('введите n,m');
readln (n,m);
for i:=1 to n do
read (a[i]);
for i:=1 to n do begin
for j:=1 to m do
readln (s[i,j]);
for i:=1 to n do begin
for j:=1 to m do
write (a[i,j]:3;
writeln;
end;
while (k<>b);
for i:=1 to n do
a[i]:=s[i,n];
for j:=m down to 2 do
for i:=1 to n do
s[i,j]=s[i,j-1];
for i:=1 to n do
s[i,1]:=a[i];
k:=k+1;
for i:=1 to n do
for j:=1 to m do
writeln (s[i,j]:3);
writeln;
end;
readln;
end.