Поменять местами части строк до заданного символа и после него (без Copy)

program kontr4;
var
  i,k,l: integer;
  F1, F2: text;
  ch: char;
  str,str1,str2: string;
  t: boolean;
begin
  assign(f1,paramstr(1));
  reset(f1);
  assign(f2,paramstr(2));
  ReWrite(f2);
  Writeln('input char');
  readln(ch);
  i:=1;
  k:=1;
  while not EOF(f1) Do
    begin
        readln(f1,str);
        for i:=1 to length(str) do
                    if str[i]=ch then begin
            t:=true;
            k:=i;
            Break;
            end;
                str1:=copy(str,1,k-1);
                str2:=copy(str,k,length(str)-k);
                if t=true then begin
                   write(f2,str2);
                   writeln(f2,str1);
                   end
                   else writeln(f2,str);
                t:=false;
                end;
  close(f2);
  close(f1);
  Writeln('Program done, open the file');
  readln
end.

c:=' '; //Искомый символ
s:='Строка какая-то';
for i:=1 to Length(s) do if s[i]=c then break else s2:=s2+s[i]; s2:=s2+c;
for j:=i+1 to Length(s) do s2:=s[i]+s2;
write(s2);

for i:=1 to Length(s) do if s[i]=c then break else s2:=s2+s[i];s2:=' '+s2;
for j:=Length(s) downto i+1 do s2:=s[j]+s2;

var f1, f2: text;
    c: char;
    p: integer;
    s: string;
 
begin
  assign(f1, paramstr(1));
  reset(f1);
  assign(f2, paramstr(2));
  rewrite(f2);
  write('Input char: ');
  readln(c);
  while not eof(f1) do
    begin
      readln(f1, s);
      p :=  pos(c, s);
      if p > 0
        then writeln(f2, copy(s, p + 1, length(s) - 1) + s[p] + copy(s, 1, p - 1))
        else writeln(f2, s)
    end;
  close(f1);
  close(f2);
  write('Program done, open the file.');
  readln
end.

var f1, f2: text;
    c: char;
    i, p: integer;
    s: string;
 
begin
  assign(f1, paramstr(1));
  reset(f1);
  assign(f2, paramstr(2));
  rewrite(f2);
  write('Input char: ');
  readln(c);
  while not eof(f1) do
    begin
      p := 0;
      readln(f1, s);
      for i := 1 to length(s) do
        if s[i] = c
          then begin
            p := i;
            break
          end;
      if p > 0
        then begin
          for i := p + 1 to length(s) do write(f2, s[i]);
          write(f2, s[p]);
          for i := 1 to p - 1 do write(f2, s[i]);
          writeln(f2)
        end
        else writeln(f2, s)
    end;
  close(f1);
  close(f2);
  write('Program done, open the file.');
  readln
end.