Изменить программу на сдвиг влево

var a: array [0..4,0..4] of integer; 
i, j, x,k: integer;
Begin
  writeln('матрица:');
  for i := 1 to 4 do
  begin
    for j := 1 to 4 do begin
       a[i,j]:= random(9)+1;
    write(a[i,j]:5);
  end;
  writeln;
  end;
  writeln;
  write('Сдвиг на ');
 readln(x);
  for i := 1 to 4 do
    for k := 1 to x do
    begin
      a[i,0] := a[i,4];
      for j := 4 downto 1 do
        a[i,j] := a[i,j - 1];
     end;
  for i := 1 to 4 do
  begin
    for j := 1 to 4 do
      write(a[i,j]:5);
    writeln;
  end;
 End.

const n=4;
var a:array[1..n,1..n] of integer;
    i,j,k,x,t: integer;
begin
writeln('матрица:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=10+random(90);
    write(a[i,j]:3);
   end;
  writeln;
 end;
writeln;
repeat
write('Сдвиг на (x>0)');
readln(x);
until x>0;
x:=x mod n;
for i:=1 to x do
for j:=1 to n do
 begin
  t:=a[j,1];
  for k:=1 to n-1 do
  a[j,k]:=a[j,k+1];
  a[j,n]:=t;
 end;
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln;
 end;
end.