Рекурсивная функция reversestring

[Локи]

Необходимо написать программу на Delphi, переворачивающую строчки, взятые из текстового файла: "текст"->"тскет". Проблема именно с переворачиванием, остальное не проблема.
Получившийся код правильно работать не желает категорически -_-

function Reverse(s: string; pos: integer): integer;
var 
q: char;
i: integer;
begin
if (pos>1) then
begin
q:=s[1];
for i := 1 to pos-1 do
begin
s[i]:=s[i+1];
end;
s[pos]:=q;
Reverse(s,pos-1);
end;
end;

s:=edt1.Text;
Reverse(s,Length(s));
edt1.Text:=s;

Функция сдвигает текст на один символ влево, но не переворачивает, как необходимо. ЧЯДНТ?
p.s. Про стандартную reversestring знаю, но в задании это надо сделать рекурсией

[Arigato]

Попробуйте такую функцию:

function Reverse (S: string): string;
begin
  if Length (S) > 1
    then Result := S[Length(S)] + Reverse (Copy (S, 1, Length (S) - 1))
    else Result := S;
end; {func Reverse}

[skgwazap]

попробуйте так

procedure Reverse(var s: string; pos: integer): integer;

[Локи]

Спасибо, функция от Arigato работает идеально ^^,