Неровный палиндром

[lulia]

Здравствуйте! Не могу решить олимпиадную задачу прошлого года 9 класс школьный тур.
Задача: Петя Торопыжкин набрал несколько слов, состоящих из латинских букв. Он хотел их набрать их в верхнем регистре, но время от времени палец у него сосказывал с клавиши Shift, поэтому некоторые буквы получились строчными. Помогите ему, проверьте, являются ли его сова палиндромами, если записать их заглавными буквами.
Задачу необходимо решить в PascalABC.net.
На вход подаются в первой строке натуральное число n - количество Петиных слов (слов не более 20). В следующих n строках записаны сами слова.
На выходе n строк состоящих из слов YES если слово является палиндромом и NO если слово не является палиндромом.
Пример:
Вход:
3
ADA
Ada
ADD
Выход:
YES
YES
NO

Если слово одно то я могу решить, а если слов больше уже не получается

Палиндромом называется слово, одинаково читающееся от начала к концу и от конца к началу.

[Stilet]

Показывай попытки )

[min@y™]

если слов больше уже не получается

Почему ?

[lulia]

Это алгоритм, если слово одно:

var
    s: string;
    i,f,j: byte;   n:integer;
begin
READLN(N);
readln(s);

 FOR I:=1 TO LENGTH(S) DO
S[i]:=UPCASE(S[I]);

 f := 0;
    for i := 1 to length(s) div 2 do
        if (s[i] <> s[length(s)-i+1])then   begin WRiteln('No palindrome'); f := 1;
            break
        end;
    if f = 0 then writeLN('Palindrome');
end.

если слов больше, то я определяю слова в массив. И в массиве первая сложность как сдать все слова в верхнем регистре. Я уже пробовала через условие и без условия.
получилось как-то так:

var  s:ARRAY [1..100] OF char;
    s1:ARRAY [1..100] OF string;
    i,f,j: byte;   n:integer;
begin
READLN(N);
FOR I:=1 TO N DO BEGIN
readln(s[I]);
s1[I]:='';
  FOR J:=1 TO LENGTH(S[I]) DO    BEGIN
 {if s[i] in ['a'..'z'] then begin }S[J]:=UPCASE(S[J]); s1[I]:=s1[I]+s[J]; end{ else  s1[j]:=s1[j]+s[i]};
s1[I]:=s1[I]+s[J];WRITELN(S1[J]);
END;

 f := 0;
    for i := 1 to length(s[I]) div 2 do
        if (s[i] <> s[length(s[I])-i+1])then   begin WRiteln('No palindrome'); f := 1;
            break
        end;
    if f = 0 then writeLN('Palindrome');
end.

Но выдает не правильно верхний регистр. Поэтому последнюю часть где обрабатывается палиндром не переделывала.

[min@y™]

Написать и использовать функцию запрещено? Категорически?

function IsPal(const s: string): boolean;
var
  idx, len: integer;     
  p: string;
begin
  result:= false;   
  p:= uppercase(s);
  len:= length(p);       
  
  if len = 0
    then exit;     
  
  for idx:= 1 to len div 2 do
    if p[idx] <> p[len - idx + 1]
      then exit;
  
  result:= true;
end;

[lulia]

Решать можно любым способом. Только бы ответ правильно выдавал

То что я внесла в кавычки, это мои пробы. В этой части я и не могу понять почему не получается

[min@y™]

не надо массив. ввели слово - скорми его функции и выдай её результат сразу на консоль и всё.

[lulia]

Спасибо огромное. Все получилось.