Перенос элементов строки в массивах

var
s: array [1..15] of string;
i:integer;
b:byte;
begin
writeln('введите элементы массива');
for i:=1 to 15 do
begin
writeln('s[',i,']= ');
readln(s[i]);
end;
for i:=1 to 15 do
begin
b:=length(s[i]);
if s[i][b]='*' then writeln('здесь звездочка');
end;
for i:=1 to 15 do
writeln('s[',i,']=',s[i]);
writeln(b);
writeln(s[5[3]]);
readln;
end.

const
  csize=15;
 
type
  tarstring=array [1..csize] of string;
 
procedure processstring(var arg:tarstring;size:byte);
var
  s:string;
  i,j,k:byte;
begin
  for i:=1 to size do begin
    s:=arg[i];
    j:=0;
    k:=length(s);
    repeat
      inc(j);
      if s[j]='*' then begin
        delete(s,j,1);
        s:=s+'*';
        dec(k);
        dec(j);
      end;
    until j=k;
    arg[i]:=s;
  end;
end;
 
var
  s:tarstring;
  i,n:byte;
  ch:char;
  f:text;
 
begin
  assign(f,'C:\Files for Program Pascal\schar.txt');
  reset(f);
  i:=0;
  while not eof(f) do begin
    inc(i);
    while not eoln(f) do begin
      read(f,ch);
      s[i]:=s[i]+ch;
    end;
    readln(f);
  end;
  n:=i;
  close(f);
  processstring(s,n);
  assign(f,'C:\Files for Program Pascal\schar.txt');
  rewrite(f);
  for i:=1 to n do
    writeln(f,s[i]);
  close(f);
  readln
end.

s[i]:='';