Нужно превратить слово ночь в день заменив лишь одну букву

program;   var  i: byte;   str: string;   begin  for i: =60 to 70 do  begin  str: =str+chr(i) ;   end;   writeln(str);   end.

program xxx;

  var a,b,c : string;

begin

    write('введите название 1 фигуры-');

    readln (a);  

    write('введите название 2 фигуры-');

    readln (b);  

    write('введите название 3 фигуры-');

    readln (c);

    writeln (' фигуры: ',a,b,c);

    readln

end.