2DjDeniels-61
В принципе почти правильно. Но необходимы 3 небольших исправления: в 16 и 8 строках снизу вместо "read" необходимо поставить "readln", а в 7 строке снизу вместо "write" - "writeln", иначе работает некорректно. И вообще, работая с ПОЛНЫМИ строками, т.е. без указания длины, лучше командами "read" и "write" без "ln" не пользоваться - возникнут ошибки.