Работа с символами в строках

[trojanwin32]

Возможно ли сделать на паскале такую программу которая:
Имеет 2 строки в которые произвольной длины вводится текст, а дальше выводит на экран ту строку которая имеет большую длину + сразу определяет в этой строке количество введенных символов "!" , "а" , "?" , ";". и тоже выводит на экран кол-во вхождений указанных символов.
буду очень благодарен если кто поможет, если это вообще возможно.

[Mad_Cat]

Возможно ли сделать

возможно

var str1,str2,buf:string;
procedure GetS(S:string);
const p='!a?;';
var a:array[1..4]of integer;i:integer;
begin
for i:=1 to 4 do a[i]:=0;
for i:=1 to Length(s) do
if pos(s[i],p)<>0 then inc(a[pos(s[i],p)]);
for i:=1 to 4 do
writeln(p[i],'-',a[i]);
end;


begin
readln(str1);
readln(str2);
if length(str1)>=length(str2) then buf:=str1
else buf:=str2;
writeln(buf);
GetS(buf);
end.