Не понимаю, почему на Free Pascal не происходит вывода данных

program P11_29g(input,output);
 
const n=20;
 
type sdvig=1..n-1;
    shkala=packed array [1..n] of boolean;
 truefalse=0..1;
 
var r: shkala;
    t: sdvig;
 
procedure inputer(var s: shkala; k: sdvig);
var i: integer;
    j: truefalse;
begin
  writeln('Введите строку');
  for i:=1 to n do
  begin
      read(j);
      if j=0 then s[i]:=false
      else s[i]:=true;
  end;
  writeln;
  writeln('На какое количество позиций влево сдвинуть элементы строки?');
  read(k);
end;
 
procedure sdviger(var s: shkala; k: sdvig);
var c: shkala;
  i,j: integer;
begin
  j:=1;
  for i:=1 to k do
      c[i]:=s[i];
  for i:=1 to n-k do
      s[i]:=s[i+k];
  for i:=n-k+1 to n do
  begin
      s[i]:=c[j];
      j:=j+1;
  end;
end;
 
procedure outputer(s: shkala);
var i: integer;
begin
  for i:=1 to n do
  begin
     if s[i]=false then write('0 ')
     else write('1 ');
  end;
end;
 
begin
  writeln('Начало работы');
  inputer(r,t);
  sdviger(r,t);
  outputer(r);
  writeln('Конец работы');
end.

procedure inputer(var s: shkala; VAR k: sdvig); // <---