ЧТО ДЕЛАЕТ ЭТА ПРОГРАММА?
procedure vvod(var st:string[10]; c:string); 
 begin  writeln('Ввести'+' '+c); 
 readln(st);  
end; 
 function kol(c:string;st:string):integer; 
 var  k,i:integer; 
 begin  k:=0; 
 i:=1;  
while i<=length(st) do 
 begin  if copy(st,i,1)=c then 
 k:=k+1;  
i:=i+1; 
 end;   
kol:=k;
  end;
 var  s,s1,s2:string[10]; 
Begin  vvod(s,'строку'); 
 vvod(s1,'символ первый');
  vvod(s2,'символ второй'); 
 if kol(s1,s) >kol(s2,s) then
  writeln('Символ ',s1,' встречается в строке ',s, kol(s1,s):4,' раз. Это >, чем встречается ',s2) 
 else  
if kol(s2,s) >kol(s1,s) then  
writeln('Символ ',s2,' встречается в строке ',s, kol(s2,s):4,' раз. Это >, чем встречается ',s1)  
else
  writeln('Количество символов ',s1,' и ',s2,' в строке ',s,' одинаково и =',kol(s1,s):4) ; 
end.