Выручайте :(

[Axandra]

Вот условие: Найти все 5-ти значные числа палиндромы(например 11111,4774) и вывести их
Вот задача:

Program palindrom;
var i,val,m,k: integer;
s: string;
begin
val:=10000;
while val<>99999 do
begin
str(val,s);
m:=length(s)div 2;
for i:=1 to m do
if s=s[length(s)-i+1] then k:=k+1;
if (k=m) then writeln('palindrom');
writeln(val);
val:=val+1;
end;
end.

И можете записать это:

m:=length(s)div 2;
for i:=1 to m do
if s=s[length(s)-i+1] then k:=k+1;
if (k=m) then writeln('palindrom');

Через процедуру или функцию?