uses crt;
var c:char;
  s:String;
  i:byte;
  KolA,KolR,KolS:Word;
begin
  ClrScr;
  KolS:=0;
  KolA:=0;
  KolR:=0;
  s:='';
  repeat{пока не ввели *}
    c:=ReadKey;{считываем введённый символ}
    s:=s+c;
    Write(c);
    IF c = #13 then{Если нажали Enter - переводим курсор на следующую строку}
      WriteLn;
  until c = '*';
  For i:= 1 to length(s) do
    case s[i] of
      's','S': begin{если это буква S - заменяем на точку}
        s[i]:='.';
        inc(kolS);{считаем количество}
      end;
      'a','A': inc(KolA);{если буква A или R - считаем кол-во}
      'r','R': inc(KolR);
    end;
  WriteLn;
  WriteLn('Изменённая строка: ');
  WriteLn(s);{выводим ответ}
  WriteLn('Количество букв A: ',KolA);
  WriteLn('Количество букв R: ',KolR);
  WriteLn('Количество букв S: ',KolS);
  ReadLn;
end.

Приложение:
program z161199; uses crt; {=== ЗАДАЧА №1 ===} Procedure vvod_tochek(var x1,x2,x3,y1,y2,y3:Extended); begin Write('введите x и y первой точки: '); Readln(x1,y1); Write('введите x и y второй точки: '); Readln(x2,y2); Write('введите x и y третьей точки: '); Readln(x3,y3); end; Function rasst(x1,x2,y1,y2:Extended):Extended; begin {расстояние между двумя точками} rasst:=sqrt(sqr(x2-x1)+sqr(y2-y1)); end; var a,b,c,s,x1,x2,x3,y1,y2,y3,poluPer:Extended; begin ClrScr; vvod_tochek(x1,x2,x3,y1,y2,y3);{ввести координаты точек} a:=rasst(x1,x2,y1,y2);{расчитываем стороны} b:=rasst(x2,x3,y2,y3); c:=rasst(x1,x3,y1,y3); IF ((a < b+c)and(b < a+c)and(c < a+b)) then{если точки образуют треугольник (сума двух сторон больше третьей), то} begin WriteLn('периметр = ',a+b+c:5:6);{вычислить периметр} poluper:=(a+b+c)/2; s:=sqrt(poluper*(poluper-a)*(poluper-b)*(poluper-c));{вычислить площадь} WriteLn('площадь = ',s:5:6); end else WriteLn('Треугольника с заданными координатами вершин не существует'); ReadLn(); end. {=== ЗАДАЧА №2 ===} var c:char; KolA,KolR,KolS:Word; begin ClrScr; KolS:=0; KolA:=0; KolR:=0; repeat{пока не ввели *} c:=ReadKey;{считываем введённый символ} case c of 's','S': begin{если это буква S - заменяем на точку} c:='.'; inc(kolS);{считаем количество} end; 'a','A': inc(KolA);{если буква A или R - считаем кол-во} 'r','R': inc(KolR); #13: WriteLn;{если нажали Enter - переводим курсор на след. строку} end; Write(c);{выводим введённый символ (или точку вместо S)} until c = '*'; WriteLn;{выводим ответ} WriteLn('Количество букв A: ',KolA); WriteLn('Количество букв R: ',KolR); WriteLn('Количество букв S: ',KolS); ReadLn; end.