Составить библиотеку алгоритмов для обработки и преобразования шкалы S

unit moveScale;
 
interface
type    shift=1..99;
        scale=array [1..100] of integer;
procedure moveleft( var s:scale; k:shift; i,n:integer; t:scale);
procedure moveright( var s:scale; k:shift; i,n:integer; t:scale);
procedure movesosed( var s:scale; i,t,n:integer);
procedure movenm( var s:scale; o,l,t,q,n,i:integer);
 
implementation
 
procedure moveleft;                        
    begin  
    writeln('Введите размер массива');
    readln(n);
    writeln('Введите цикл сдвига влево <=', n-1);
    readln(k);
    writeln('Исходный массив');
    for i:=1 to n do write(s[i]);
    for i:=1 to k do 
    t[n-k+i]:=s[i];                                                                  
    for i:=k+1 to n do 
    t[i-k]:=s[i];
    s:=t;
    writeln('Полученный массив со сдвигом влево');
    for i:=1 to n do write(s[i]);
    writeln;
    end;
 
procedure moveright;                        
    begin  
    writeln('Введите размер массива');
    readln(n);
    writeln('Введите цикл сдвига вправо <=', n-1);
    readln(k);
    writeln('Исходный массив');
    for i:=1 to n do 
    write(s[i]);  
    for i:=1 to k do 
    t[i]:=s[n-k+i];                                                                  
    for i:=k+1 to n do 
    t[i]:=s[i-k];
    s:=t;
    writeln('Полученный массив со сдвигом вправо');
    for i:=1 to n do write(s[i]);
    writeln;
    end;
    
procedure movesosed;                        
    begin  
    writeln('Введите размер массива');
    readln(n);
    writeln('Исходный массив');
    for i:=1 to n do write(s[i]);
    begin
    i:=0;
    While i<n-1 do
     Begin
      inc(i,1);
      t:=s[i];
      s[i]:=s[i+1];
      s[i+1]:=t;
      inc(i,1);
     End;
    end;
    writeln('Полученный массив, четные и нечетные эл-ты поменялись местами');
    for i:=1 to n do write(s[i]);
    writeln;
    end;    
 
procedure movenm;                       
    begin  
    writeln('Введите размер массива');
    readln(n);
    writeln('Исходный массив');
    for i:=1 to n do write(s[i]);
    writeln('Введите позиции переставляемых эл-ов');
    readln(o,l);
    t:=s[o];
    q:=s[l];
    s[o]:=q;
    s[l]:=t;
    writeln('Полученный массив с переставленными эл-ами');
    for i:=1 to n do write(s[i]);
    writeln;
    end;
 
end

writeln('Введите размер массива');
readln(n);
writeln('Введите массив');
for i:=1 to n do read(s[i]);