Şiruri de caractere

1. Fie dat un sir de caractere alcatuit din mai multe
propozitii ce se termina cu.(punct). De determinat
numarul de propozitii din acest text.

Program P1;
 var s:string;
     i,k:integer;
 begin
   write('dati un sir de caractere:'); readln(s);
   k:=0;
   for i:=1 to length(s) do
   if s[i]='.' then k:=k+1;
   write('nr propozitiilor:',k);
   readln;
 end.

2. De determinat pozitia primului .(punct) din text
si pozitia ultimului.(punct).

Program P2;
var s:string;
    i:integer;
begin
  write('s=');
  readln(s);
  writeln('pozitia primului punct:',pos('.',s),' ');
  for i:=length(s) downto 1 do
  if s[i]='.' then 
    begin
     write('pozitia umtimului punct:',i);
     break;
    end;
end.

3. Fie avem un sir de caractere, de determinat cite
litere si cite cifre sint in acest sir.

Program P3;
var s:string;
    cif,litere,i:integer;
begin
  writeln('dati un sir de caractere:'); readln(s);
  cif:=0; litere:=0;
  for i:=1 to length(s) do
  case s[i] of
  '0'..'9':cif:=cif+1;
  'a'..'z','A'..'Z':litere:=litere+1;
  end;
  write('cif=',cif,' ','litere=',litere);
  readln;
end. 

4. Fie dat un text, de inlocuit vocalele cu 0 si 
consoanele cu 1.

Program P4;
var s:string;
    i:integer;
begin
  write('Dati un sir de caractere:'); readln(s);
  for i:=1 to length(s) do 
  if s[i] in ['a'..'z','A'..'Z'] then
     if s[i] in ['a','A','i','I','o','O','e','E','u','U'] then s[i]:=0
  else s[i]:=1;     
  readln;
end.