Для второй задачи попробуй использовать это:
там нужно удалить несколько строк кода и несколько заменить,
например, одна из таких: Line [I] := Chr ((Ord (Line [I]) + 1);
и не забыть добавить условие, если буква Z (код ACSII 90), то заменить ее на A (код 65) и соответственно z (код 122) на a (код 97)
Если других символов в задаче нет - то всё.
Если есть там типа точки, тире, зяпятые....в конце концов - русские буквы, то ограничивай дополнительными условиями.
Удачи!