Developing.ru

Здравствуйте! Помогите,пожалуйста, решить задачу
4.Дан текстовый файл,содержащий некоторые пояснения,заключенные
в скобки. Убрать эти пояснения вместе со скобками. Выровнять
измененный файл по левому и правому краю,равномерно добавив прбелы.

Первое делается так
while (pos('(', s) >0) do
s:= copy(s, 1, pos('(', s)-1) + copy (s, pos(')', s), length(s);
Второе - устанавливаете нужную длину строки (например, 80 символов). Находите количество символов, которые нужно добавить в начало и конец строки, чтобы выровнять ее по центру:
x:= (80-length(s)) div 2;
Дальше
for i:=1 to x do s:=' '+s+' ';
Самостоятельно разберитесь, что делать, если length(s) нечетная