Оформление Функций - Pascal ABC

Формулировка задачи:

Мне нужно в функции перевернуть строку. Вывод вот эту ошибку. Что не так я делаю? нет индексного свойства по умолчанию для типа integer

uses crt;
var q,w:string;
n:integer;
Procedure vvod;
begin
repeat
  writeln('Введите строку');
  readln(q);
  until length(q)>1 ;
  repeat
  writeln('Введите подстроку');
  readln(w);
  until length(w)>1 ;
  n:=length(w);
end ;
 
Function fac(w: integer): string;
Var
  i: integer;
 
  begin
     for i := n downto 1 do begin
       fac:=fac+w[i];
    end;
    end; 
begin
vvod;
writeln(q);
writeln(w);
writeln(fac);
end.

Решение задачи: «Оформление Функций»

Листинг программы

  for i:=1 to length(w) div 2 do
  begin
    temp:=w[i];
    w[i]:=w[length(w)+1-i];
    w[length(w)+1-i]:=temp;
  end;

Объяснение кода листинга программы

Этот код на языке Pascal ABC выполняет следующие действия:

Переменная i инициализируется значением 1.
Цикл for выполняется столько раз, сколько элементов в переменной w.
На каждой итерации цикла значение переменной i увеличивается на 1.
Внутри цикла переменная temp присваивается значение переменной w[i].
Затем значение переменной w[i] присваивается переменной w[length(w)+1-i].
Наконец, значение переменной w[length(w)+1-i] присваивается переменной temp.
После окончания цикла переменная i будет содержать значение длины переменной w, увеличенное на 1.
Код не использует вложенные списки.