Problem z przepisaniem

[nowy_me]

mam program który ma przepisać jeden string do drugiego:

var
  tekst, tekst2 : string;
  i : integer;

begin
  write('podaj tekst: ');
  readln(tekst);

  i := 0;
  repeat
  begin
    i := i + 1;
    tekst2[i] := tekst[i];
  end;
  until i = length(tekst);

  writeln(tekst2);
  readln;
end.

no tylko ten program tego nie robi, czemu?
tak, wiem że mogę użyć

tekst2 = tekst;

ale ten program ma mieć jeszcze inną funkcje, przekształcającą znaki a nie tylko przepisującą

 

[djmentos]

for i:=1 to Length(tekst) do
begin
tekst2:= tekst;
end;