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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.