Написать программу удаления половины символов, зная, что количество символов в строке - чётное. (Паскаль)

Для удаления правой половины символов:

Var

S:string;

Begin

Write ('Введите строку: ') ; ReadLn (S) ;

S:=Copy (S, 1, Length (S) div 2) ;

WriteLn (S) ;

End.

Пример работы программы:

Введите строку: 1234

12

Для удаления левой половины символов:

Var

S:string;

Begin

Write ('Введите строку: ') ; ReadLn (S) ;

S:=Copy (S, Length (S) div 2+1, Length (S)) ;

WriteLn (S) ;

End.

Пример работы программы:

Введите строку: 1234

34

Удаление выбранной половины символов:

Var

S:string;

A:byte;

Begin

Write ('Введите строку: ') ; ReadLn (S) ;

WriteLn ('1 - удаление правой половины, 2 - удаление левой половины') ;

ReadLn (A) ;

if A = 1 then S:=Copy (S, Length (S) div 2+1, Length (S))

else S:=Copy (S, 1, Length (S) div 2) ;

WriteLn (S) ;

End.

Пример работы программы:

Введите строку: 1234567890

1 - удаление правой половины, 2 - удаление левой половины

2

12345