ANTICHAT - Показать сообщение отдельно - [Delphi]/[Pascal] Задай вопрос, получи ответ

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

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

Код:

          
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.