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

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.