тип String Опции

[симав]

Подсчитайте, какой процент слов в тексте содержит удвоенную букву.
Вот, что я сделала:

Код

var s:string;
p:real;
n,k,i:byte;
begin
readln(s);
for i:=1 to length(s) do begin
if s[i]=' ' then n:=n+1;
if s[i]:=s[i+1] then k:=K+1;
end;
p:=(n/k)*0.1;
writeln('p=',p:3:3);
readln;
end.

[симав]

В фразе содержатся цифры и знаки арифметическмх операций вывести на экран результат операции.
так?

Код

var
   s,s1,s2:string;
   m,op,c:char;
   i,a,b,o,j,n:integer;
begin m:=['1','2','3','4','5','6','7','8','9','0'];
     op:=['+','-','*','/'];
     readln(s);
             writeln(s);
             for i:=2 to length(s)-1 do
                if (s[i]  in op)and
                  (s[i-1]in m) and
                  (s[i+1]in m)
                   then begin
                              j:=1;
                              s1:='';
                              while (s[i-j] in m) and (i-j>0) do
                                begin s1:=s[i-j]+s1;
                                      j:=j+1
                                end;
                              j:=1;
                              s2:='';
                              while (s[i+j] in m) and (i+j<=length(s)) do
                                begin s2:=s2+s[i+j];
                                      j:=j+1
                                end;
                              val(s1,a,n);val(s2,b,n);
                               O:=a+b;
                               O:=a-b;
                               O:=a*b;
                               O:=a div b;
                                 end;
                              writeln(a,s[i],b,'=',O,' ')
                         end;
        end;
      end.