Задача 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. //2-ая программка 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 gt; countE then writeln (a gt; e) else if countA lt; countE then writeln (a lt; e) else writeln (a = e); readln; end.