Напишите программу, которая вычисляет процентное содержание символов G и C в введенной строке (Независимо от регистра)

var g,c : char;
    str : string;
  n,m,s : integer;
    o,p : real;
    k   : byte;
begin
g:=g;
c:=c;
o:= n / s * 100;
p:= m / s * 100;
s:=length(str);
n:=0; //для g//
m:=0; //для c//
read(str);
for k:= 1 to s do
case str[k] of
g : inc(n);
c : inc(m);
end;
writeln(o);
writeln(p);
end.

case str[k] of
'g' : inc(n);

var g,c : char;
    str : string;
    n,m : integer;
    o,p : real;
    k   : byte;
begin
o:= n / length(str) * 100; //Выражение для g//
p:= m / length(str) * 100; //Выражение для c//
n:=0; //для g//
m:=0; //для c//
read(str); //Считывает введенную строку//
for k:= 1 to length(str) do //Перебирает символы строки от начала до конца//
case str[k] of 
'g' : inc(n);//Если символом является g,добавляет 1 к преидущему кол-ву//
'c' : inc(m);//Если символом является c,добавляет 1 к преидущему кол-ву//
end;
writeln(o);//При помощи заданного выражения считает кол-во символа g в строке,%//
writeln(p);//При помощи заданного выражения считает кол-во символа c в строке,%//
end.

var str : string;
  n,m,s : integer;
    o,p : real;
begin
writeln('Введите строку, содержащую символы C,c,G,g');
readln(str);
s:=length(str);
n:=0; //для g//
m:=0; //для c//
for k:=1 to s do
case upcase(str[k]) of
'G' : inc(n);
'C' : inc(m);
end;
if n=0 then writeln('Символов G,g нет')
else 
 begin
  o:=100*n/s;
  writeln('Процентное содержание символов G,g=',o:0:2);
 end; 
if m=0 then writeln('Символов C,c нет')
else 
 begin
  p:=100*m/s;
  writeln('Процентное содержание символов C,c=',p:0:2);
 end; 
end.

begin
  var s := ReadLnString('Введите строку:').ToLower;
  WriteLn('содержание C и G = ', (s.Count(ch->'cg'.IndexOf(ch)>-1)/s.Length).ToString('p'));
  WriteLn('содержание C = ', (s.Count(ch->'c'=ch)/s.Length).ToString('p'));
  WriteLn('содержание G = ', (s.Count(ch->'g'=ch)/s.Length).ToString('p'));
end.