Паскаль. Тема огромного количества. Написать программки:1) в веденной строке удвойте каждое вхождение

Хммм... не особо на огромного количества смахивает, больше на строчки, непременно set использовать?

Var
s:string;
cnt, i,j:integer;
begin
Readln(s);
for i:= 1 to length(s) do
  begin
    if s[i] = 'a' then  write('a');
    write(s[i]);
    if s[i] = 'z' then cnt:= cnt+1;
  end;
Writeln;
Writeln('Кол-во "z" в слове: ', cnt);
for i:= 1 to length(s) do
  if s[i] lt;gt; s[length(s)-i+1] then begin
  Writeln('Это не палиндром');
  halt;
  end;
  Writeln('Это палиндром');
end.

Пример:
abazaba
aabaazaabaa
Кол-во "z" в слове: 1
Это палиндром