Вводится строка символов, подсчитать сколько в данной строке запятых и тире, стоящих рядом. Заменить их на **.

Uses crt;
Var
s: String;
i:Integer;
Begin
Clrscr;
Writeln('Введите строку: '); Readln(s);
For i:=1 to Length(s) do
If s[i]='!' Then s[i]:='.';
Writeln;
Write(s);
Readln
End.

Uses crt;
Var
s: String;
i,k:Integer;
Begin
Clrscr;
Writeln('Введите строку: '); Readln(s);
For i:=1 to Length(s) do
If s[i]='o' Then Inc(k);
Writeln('Количество букв "o"=' ,k);
Readln
End.

Uses crt;
Var
s: String;
i,k:Integer;
Begin
Clrscr;
Writeln('Введите строку: '); Readln(s);
For i:=1 to Length(s) do
If (s[i]='o') or (s[i]='O') Then Inc(k);
Writeln('Количество букв "o"=' ,k);
Readln
End.

Uses crt;
Type
book=Record
fam: String;
otm: Integer;
end;
Var
s: String;
x: Array[1..40] of book;
n,i,p,sum: Integer;
Begin
Clrscr;
Writeln('Введите наименование предмета:'); Readln(s);
Writeln('Количество студентов: '); Readln(n);
For i:=1 to n do
begin
 Write('Фамилия: '); Readln(x[i].fam);
 Write('Оценка: '); Readln(x[i].otm);
end;
Clrscr;
p:=7;
Writeln(s);
For i:=1 to n do
begin
 with x[i] do
 begin
  Gotoxy(2,5); Writeln('Фамилия студента'); Gotoxy(2,p); Write(fam);
  Gotoxy(40,5); Writeln('Оценка'); Gotoxy(40,p); Write(otm);
  Inc(p,2);
  sum:=sum+otm;
 end;
end;
Writeln;
Writeln('Средняя оценка: ',sum/n:2:1);
Readln
End.

Uses crt;
Var
s: String;
n: Longint;
code: Integer;
Begin
Clrscr;
Writeln('Введите 6-значное число:'); Readln(s);
Val(s,n,code);
If ((n div 100000 mod 10 + n div 10000 mod 10 + n div 1000 mod 10)=(n div 100 mod 10 + n div 10 mod 10 + n mod 10)) Then
Writeln('Билет "счастливый"') Else
Writeln('Билет не "счастливый"');
Readln
End.

Uses crt;
Var
s: String;
i,k: Integer;
Begin
Writeln('Введите предложение до точки');
Readln(s);
For i:=1 to Length(s) do
If s[i]=' ' Then Inc(k);
Writeln('Количество слов: ',k+1);
Readln
End.

uses crt;
var s: string;
    i,k: byte;
begin
write('s='); readln(s);
for i:=1 to length(s)-1 do
    if ((s[i]=',') and (s[i+1]='-')) or
       ((s[i+1]=',') and (s[i]='-')) then
       begin
       s[i]:='*'; s[i+1]:='*';
       end;
write('s=',s);
readln;
end.