Составьте алгоритм, утраивающий каждую букву в заданном тексте. Выведите полученную строку на экран - VB

program slava_1;
uses crt;
var
  s: string;
 
function three(s: string): string;
var
  n, i: integer;
  c: char;
begin
  n:= length(s);
  for i:= n downto 1 do
  begin
    c := s[i];
    insert(c, s, i);
    insert(c, s, i);
  end;
  three := s;
end;
 
begin
  clrscr;
  write('Vvedite strocu:');
  readln(s);
  writeln('new stroca: ',three(s));
  readln;
end.