Нужно найти строки полиндромы и вывести их, вот моя прога function slov(s :string):string;
var
i :longint;
k :string;
begin
k := '';
if not(length(s) = 0) then
for i := length(s) downto 1 do
begin
k := k + copy(s,i,1);
end;
slov := k;
end;

var
f :text;
s :string;
l :longint;
begin
readln(s);
assign(f,s);
Reset(f);
while not(eof(f)) do
begin
readln(f,s);
if (slov(s) = s) then
begin
writeln(s);
end;
end;
close(f);
end.

Сайт, на котором осуществляется проверка пишет, что не проходят скрытые тесты, что не так я не понимаю​

1) Ақпаратты бағдарламаға түрлендіру тапсырмасын орындайтын және барлық есептеу процестерін басқаруды жүзеге асыратын компьютердің орталық бөлігі.

2) Мақсатына сәйкес процессор регистрлері ерекшеленеді: аккумулятор - арифметикалық және логикалық операциялардың аралық нәтижелерін және енгізу-шығару нұсқауларын сақтау үшін қолданылады; ... контроллерлер - процессордың күйін басқаратын ақпараттарды, сонымен қатар жүйелік кестелердің адрестерін сақтайды.

3) Процессордың негізгі сипаттамалары:

• тактілік жиілік;

• разрядтылық;

• жұмыс кернеуі;

• кэш-жады өлшемі.

Системный блок — это элемент персонального компьютера, который защищает компоненты компьютера, находящиеся внутри, от механических повреждений и внешнего воздействия.

Блок – это частица-пазл, используемая для создания кода в Скретч. Блоки крепятся друг к другу с специальных выступов. Существуют блоки событий, команд, репортёры, логические репортёры или блоки конца скрипта. Они имеют свои внутренности и при попытке вставить туда что-то неподходящее, будет синтаксическая ошибка. Много блоков составляют скрипт.

Объяснение:

сделай ответ лучшим