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

Для удаления правой половины символов: 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

1. современный вариант // pascalabc.net 3.2, сборка 1429 от 28.04.2017 // внимание! если программа не работает, обновите версию! begin   var s: =readlnstring;   s: =s.left(s.length div 2);   s.println end. пример половину удалим! половину 2. школьный вариант var   s: string;   n: integer; begin   readln(s);   n: =length(s) div 2;   delete(s,n+1,n);   writeln(s); end.

неге көмектесу керекааа