Удалить из строки вторую букву а если ее нт вывести соответствующее сообщение

Ḱặрặṃềӆьҟӑ Ḱặрặṃềӆьҟӑ    2   28.05.2019 11:10    0

Ответы
79521312181 79521312181  25.06.2020 21:52
Var a:string; 
begin 
readln(a); 
if length(a)=1 then a:=a+' ';
if a[2]<>' ' then delete(a,2,1) else writeln('Такого нет');
readln;
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика