Помогите разобрать задачи с помощью функций т.е ввод/вывод с помощью их (сессия на носу х_Z)

Дана строка. Определить, сколько в ней символов *, ; , :.

var
s:string;
begin
readln(s);
while pos('  ',s)<>0 do
delete(s,pos('  ',s),1);
while s[1]=' ' do
delete(s,1,1);
while s[length(s)]=' ' do
delete(s,length(s),1);
writeln(s)
end.

Строка содержит одно слово. Проверить, будет ли оно читаться одинаково справа налево и слева направо (т.е. является ли оно палиндромом).

var    s: string;
i,k,l,d: integer;
      b: boolean;
begin
writeln('vvedite stroku: ');
readln(s);
b:= true;
d:= length(s);
l:= d div 2;
for i:=1 to l do
if s[i]<>s[d+1-i] then b:=false;
if b=true then writeln ('palindrom') else
writeln('ne palindrom');
readln;
end.

function count (s : string) : byte;
var
   x : byte;
   i : byte;
begin
   x := 0;
   for i := 1 to length(s) do
      if s[i] in ['*', ';', ':'] then inc(x);
   count := x;
end;

Возвращает число ссимволов

function p (s : string) : boolean;
var
   s1 : string;
   i : byte;
begin
   s1 := '';
   for i := length(s) downto 1 do
      s1 := s1 + s[i];
   p := s = s1
end;

Вернет true если слово зеркальное

Сообщение отредактировано: Client - 13.06.2010 23:12

Client, а зачем было переделывать этот код (палиндромы)? Код автора темы, во-первых - верный, а во вторых - более эффективный. Нуждается лишь в небольшой прическе..