Переделать программу так чтоб она работала через функцию

uses crt;
const N = 10;
var
  a: array [1..N] of char;
  len:integer;
  S: integer;
  M: integer;
  i:integer;
begin
  for i:=1 to N do
   readln(a[i]);
  writeln('Элементы массива a: ');
  for i:=1 to N do
    write(a[i],' ');
  writeln;
  writeln;
 
  write('введите индекс S: ');
  readln(S);
  write('введите индекс M: ');
  readln(M);
  writeln;
  
  writeln('После удаления элементов с индексами от ',S,' до ',M);
  for i:=S to M do
    write(a[i]:2);
  writeln;
    
  len:=S-1;
  for i:=M to N do begin
    Inc(len);
    a[len] := a[i];
  end;
 
  for i:=1 to len do
    write(a[i],' ');
  writeln;
end.

for i:=M+1 to N do begin

uses crt;
const N = 10;
var
  a: array [1..N] of char;
  S: integer;
  M: integer;
  i:integer;
function right(var x:array[1..N] of char):integer;
var len,i:integer;
begin
  len:=S-1;
  for i:=M+1 to N do begin
    Inc(len);
    x[len] := x[i];
  end;
  right:=len
end;
begin
  for i:=1 to N do
   readln(a[i]);
  writeln('Ýëåìåíòû ìàññèâà a: ');
  for i:=1 to N do
    write(a[i],' ');
  writeln;
  writeln;
 
  write('ââåäèòå èíäåêñ S: ');
  readln(S);
  write('ââåäèòå èíäåêñ M: ');
  readln(M);
  writeln;
 
  writeln('Ïîñëå óäàëåíèÿ ýëåìåíòîâ ñ èíäåêñàìè îò ',S,' äî ',M);
  for i:=S to M do
    write(a[i]:2);
  writeln;
 
  for i:=1 to right(a) do
    write(a[i],' ');
  writeln;
end.