Написать программу удваивающую буквы в производном слове- Pascal(Паскаль)

var
  slovo: string;
  i: integer;

begin
  write('Введите слово: ');
  read(slovo);
  for i := 1 to length(slovo) do
  begin
    write(slovo[i], slovo[i]);
  end;
  readln;

end.