Вставить в текст пробел после каждого появления заданного символа

program da;
label metka;
  var a:array [1..100] of string;x:array[1..100] of string;
  b:string;
  len:byte;
  s:char;
  i,n,j:integer;
  
begin
write ('Введите любой символ: ');
readln(s);
write ('Введите размерность массива: ');
readln(n);
for i:=1 to n do
  begin
  write('Введите ',i,' элемент массива: ');
  readln(a[i]);
  end;
writeln;
writeln ('Исходный массив:');
for i:=1 to n do
write(a[i]:4);
 
j:=0;
len:=n;
repeat
for i:=len downto 1 do
if a[i]='/' then 
           begin
            delete(a[i],i,len-i+1);
            break;
           end;
j:=j+1;
until j<=n ;
 
end.

var
  a: array [1..100] of string;
  s: string;
  ch: char;
  i, n: integer;
 
begin
  write('Введите любой символ: ');
  readln(ch);
  write('Введите размерность массива: ');
  readln(n);
  s := '';
  for i := 1 to n do
  begin
    write('Введите ', i, ' элемент массива: ');
    readln(a[i]);
    s := s + a[i];
  end;
  writeln('Исходный массив:', s);
  for i := Length(s) downto 1 do
    if s[i] = ch then
      Insert(' ', s, i + 1);
  writeln('Преобразованный массив:', s);      
end.