Напишите пожалуйста Pascal-программу, которая удаляет 2 символа из строки с четным количеством символов и 3 симв. из строки с нечетным количеством символов. Заранее спасибо)

спасибо огромное)))

uses crt;var a:string;beginwrite('Введите строку: ');readln(a);if (length(a) mod 2) = 0 thendelete(a,1,2)elsedelete(a,1,3);writeln('Конечная строка: ',a);end.