Задача №1 Составить программу проверяющую является ли слово "перевертышем" Задача №2 Подсчитать каких букв в предложении больше "а" или "е" все в паскале

Предыдущий
вопрос Следующий
вопрос

Программа для задачи №1:

program CheckPalindrome;
var
word, reversedWord: string;
i: integer;
isPalindrome: boolean;
begin
write('Введите слово: ');
readln(word);

reversedWord := '';
for i := length(word) downto 1 do
reversedWord := reversedWord + word[i];

if word = reversedWord then
writeln('Слово "', word, '" является перевертышем.')
else
writeln('Слово "', word, '" не является перевертышем.');
end.

Программа для задачи №2:

program CountLetters;
var
sentence: string;
countA, countE, i: integer;
begin
countA := 0;
countE := 0;

write('Введите предложение: ');
readln(sentence);

for i := 1 to length(sentence) do
begin
if (sentence[i] = 'а') or (sentence[i] = 'А') then
countA := countA + 1
else if (sentence[i] = 'е') or (sentence[i] = 'Е') then
countE := countE + 1;
end;

if countA > countE then
writeln('В предложении больше букв "а".')
else if countA < countE then
writeln('В предложении больше букв "е".')
else
writeln('Количество букв "а" равно количеству букв "е" в предложении.');
end.