№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.