Задача №1 Составить программу проверяющую является ли слово "перевертышем"

Задача №2 Подсчитать каких букв в предложении больше "а" или "е"

все в паскале

var

S:string;

i:integer;

begin

write ('S = ') ;

readln (S) ;

for i : = 1 to Length (S) do

if S[i] S[Length (S) - i + 1] then

begin

writeln ('No') ;

readln;

Exit;

end;

writeln ('Yes') ;

readln;

end.

//вторая программа

var

S:string;

i, countA, countE:integer;

begin

CountA : = 0;

CountE : = 0;

write ('S = ') ;

readln (S) ;

for i : = 1 to Length (S) do

if S[i] = 'a' then

inc (countA)

else

if S[i] = 'e' then

inc (countE) ;

if countA > countE then

writeln ('a > e')

else

if countA < countE then

writeln ('a < e')

else

writeln ('a = e') ;

readln;

end.