2 задачи с использованием функции и процедуры

uses CRT;
 
var stroka : string;
    c      : integer;
 
 
function Kolichestvo(s:String) : integer;
var ret, i, len : integer;
begin
  ret := 0;
  len := length(s);
 
  for i:=1 to len do if s[i]='a' then inc(ret);
 
  Kolichestvo := ret;
end;
 
 
procedure Zamena(var s:String);
var i, len : integer;
begin
  len := length(s);
  for i:=1 to len do if s[i]='a' then s[i]:='b';
end;
   
begin
  ClrScr;
  
  Write('Введите строку : ');
  ReadLn(stroka);
  
  c := Kolichestvo(stroka);
  Zamena(stroka);
  
  WriteLn('Во введенной вами строке буква "a" встречается ',c,' раз.');
  WriteLn;
  WriteLn('Измененная строка : ', stroka);
 
  ReadLn;   
end.

uses CRT;
 
var stroka : string;
    c      : integer;
    
    
function Dlina(s:String) : integer;
begin
  Dlina := ord(s[0]);
end;
 
 
function Kolichestvo(s:String) : integer;
var ret, i, len : integer;
begin
  ret := 0;
  len := Dlina(s);
 
  for i:=2 to len do if s[i]=s[1] then inc(ret);
 
  Kolichestvo := ret;
end;
   
begin
  ClrScr;
  
  Write('Введите строку : ');
  ReadLn(stroka);
  
  c := Kolichestvo(stroka);
  
  WriteLn('Длина введенной строки : ', Dlina(stroka));
  WriteLn;  
  WriteLn('В строке ',c,' символов совпадают с первым символом строки ("',stroka[1],'").');
 
  ReadLn;  
end.