Напишите pascal-программу которая удаляет символы из середины строки, притом если в строке четное кол-во символов, то удаляется 2 символа, а если нечетное кол-во, то 3 символа.

Program a;
var S : string;
i: integer;
begin
write('Введите данные строки');
readln(S);
if ((length(s) mod 2)=0) then Delete (S, round((length(s) - 2) / 2) + 1, 2);
if ((length(s) mod 2)<>0) then Delete (S, round((length(s) - 3) / 2) + 1, 3);
write('Итоговая строка: ');
for i:=1 to Length(s) do Write(s[i]);
end.