Уважаемые программисты нужно как можно скорее исправить задачу по Паскалю

[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[i]=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[i]=s[length(s)-i+1] then k:=k+1;
if (k=m) then writeln('palindrom');



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

[lats]

Program palindrom;

function f(s: string):boolean;
var
i, m, k: integer;
begin
m:=length(s)div 2;
for i:=1 to m do
if s[i]=s[length(s)-i+1] then k:=k+1;
if (k=m) then
begin
writeln('palindrom');
result:= true;
end
else result:= false;
end;

var
val: integer;
s: string;
begin

val:=10000;
while val<>99999 do
begin
str(val,s);
if f(s) then
writeln(val);
val:=val+1;

end;
end.

может так?

[Chudo4258]

Вот еще вариант:

procedure poli(n:integer);
var nn,n1,p:integer;
begin
n1:=0;
nn:=n;
while n<>0 do //строим число перевертыш
 begin
  p:=n mod 10;
  n:=n div 10;
  n1:=n1*10+p;
 end;
if nn=n1 then writeln(nn);
end;

var i:integer;
begin
for i:=10000 to 99999 do
 poli(i);
readln;
end.

Полный код (delphi 7):