Кто знает, помогите плиз кодом в Delphi. Если не сложно именно кодом, полным

Question

Alex · Accepted Answer

проходимся по считанной строке в цикле от 1-го символа, до Length/2 и сравниваем i-й и Length-i+1-й

Алексей · Answer

for i=1 to length(s) 
begin 
if s=length(s)+1-i then 
begin 
if i=length(s) then showmessages('OK'); 
 
end; 
end; 
 
Ну примерно так как то...делфи нет щас под рукой

Иван · Answer

Если завтра устроит скинте на почту задание.

Александр · Answer

ПАлиндромом, грамотей... 
 
uses SysUtils, Classes; 
 
begin 
with TStringList.Create do 
try 
LoadFromFile('yrfile.txt'); 
writeln(Lines[ 0 ] = ReverseString(Lines[ 0 ])); 
finally 
Free; 
end; 
end. 
 
А теперь, бездельник, попробуй объяснить преподу, почему ты знаешь Дельфи лучше, чем он сам.