输入AAAaaa,输出7——Pascal

能具体一点吗，你这样的要求只能变成这样的程序
var s:string;
begin
readln(s);
if 'AAAaaa' then writeln(7);
end.

program asdf;
var a:string;
b:integer;
begin
readln(a);
b：=length（a）+1；
writeln（b）；
end.

var a:string;
begin
readln(a);
writeln('7');
readln
end.

var s:string;
begin
readln(s);
if s='AAAaaa' then writeln(7);
end.