Задача №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.