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

Question

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

Answer 1

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.