Составить программу для определения, является ли введенное предложение палиндромом

var
  s1, s2 : string;
  i, j : byte;  
begin
  writeln('строка:');
  readln(s1);
  s2 := '';  
  for i := 1 to length(s1) do
    if s1[i] in ['А'..'Я', 'а'..'я'] then
    s2 := concat(s2, copy(s1,i,1));
  for j := 1 to length(s2) do
    s2[j] := upcase(s2[j]);
  s1 := ''; 
  for j := length(s2) downto 1 do
    s1:= concat(s1, copy(s2,j,1));  
  if s1 = s2 then writeln('является палиндромом')
    else writeln('является палиндромом');     
   writeln(s1);{удалите после проверки}
   writeln(s2);{удалите после проверки}
  readln
end.

var
  s1, s2 : string;
  i, j : byte;  
begin
  {ввод строки допускаются знаки 
  препинания пробелы и разный регистр букв}
  writeln('строка:');
  readln(s1);
  {формируем строку s2 включая в нее
  только буквы русского алфавита}
  s2 := '';  
  for i := 1 to length(s1) do
    if s1[i] in ['А'..'Я', 'а'..'я'] then
    s2 := concat(s2, copy(s1,i,1));
  {Выставляем в строке s2 регистр букв в "прописные"}
  for j := 1 to length(s2) do
    s2[j] := upcase(s2[j]);
  {Формируем инвертированную строку s1}
  s1 := '';
  for j := length(s2) downto 1 do
    s1:= concat(s1, copy(s2,j,1));  
  {Если прямая s2 и инвертированная s1 строки равны, то палиндром}
  if s1 = s2 then writeln('является палиндромом')
    else writeln('является палиндромом');     
   writeln(s1);{удалите после проверки}
   writeln(s2);{удалите после проверки}
  readln
end.

var
  s1, s2 : string;
  i, j : byte;  
begin
  {ввод строки допускаются знаки 
  препинания пробелы и разный регистр букв}
  writeln('строка:');
  readln(s1);
  {формируем строку s2 включая в нее
  только буквы русского алфавита}
  s2 := '';  
  for i := 1 to length(s1) do
    if s1[i] in ['А'..'Я', 'а'..'я'] then
    s2 := concat(s2, copy(s1,i,1));
  {Выставляем в строке s2 регистр букв в "прописные"}
  for j := 1 to length(s2) do
    s2[j] := upcase(s2[j]);
  {Формируем инвертированную строку s1}
  s1 := '';
  for j := length(s2) downto 1 do
    s1:= concat(s1, copy(s2,j,1));  
  {Если прямая s2 и инвертированная s1 строки равны, то палиндром}
  if s1 = s2 then writeln('является палиндромом')
    else writeln('НЕ является палиндромом');     
   writeln(s1);{удалите после проверки}
   writeln(s2);{удалите после проверки}
  readln
end.