Типовые задачи на обработку символьных строк

1. Дана строка, в которой содержится 30 символов. Напишите программу, подсчитывающую, сколько раз в строке встречается буква 'k'.

var a: string[30];
n: integer;
begin
writeln('vvedite stroku');
readln(a);
n:=0;
for i:=1 to length(a) do
if a[i]='k' then n:=n+1;
writeln ('v stroke', a, 'sodergitsya', n, 'bukv k');
end.

2. Измените программу так, чтобы она поменяла в строке все буквы 'k' на буквы 'n'.
var a: string[30];
n: integer;
begin
writeln('vvedite stroku');
readln(a);
for i:=1 to length(a) do
if a[i]='k' then a[i]:='n';
writeln ('novaya stroka', a);
end.