Помогите решить задачи в паскале. 1) Подсчитать количество предложений в заданном тексте. 2) Найти сумму цифр в целой и в дробной части числа, введенного в виде текстовой строки.

1) тк не уточнила загружаем из файла, или вводим с клавиатуры, получай с этими двумя функциями. в каталоге с программой должен быть файлик. txt

var a, filename:string[255];

chk, i, res:integer;

f1:Text;

begin

res:=0;

chk:=0;

Writeln ('1. Input line') ;

Writeln ('2. Load from file') ;

Readln (chk) ;

if chk=1 then

begin

Writeln ('Input line: ') ;

Readln (a) ;

for i:=1 to Length (a) do

if a[i]='.' then

res:=res+1;

Writeln ('Result: ', res) ;

end;

if chk=2 then

begin

writeln ('Input name of file: ') ;

Readln (filename) ;

filename:=filename+'. txt';

Assign (f1, filename) ;

Reset (f1) ;

while not eof (f1) do

begin

readln (f1, a) ;

writeln (a) ;

for i:=1 to Length (a) do

if a[i]='.' then

res:=res+1;

end;

Writeln ('Result: ', res) ;

Close (f1) ;

end;

readln;

end.

2) вводим не запятую, а точку, как разделитель частей числа

var a, substr:string[100];

x, res, i:integer;

begin

writeln ('Input number:') ;

Readln (a) ;

substr:='.';

x:=Pos (substr, a) ;

for i:=1 to x-1 do

res:=res+strtoint (a[i]) ;

Writeln ('Result of first part: ', res) ;

res:=0;

for i:=x+1 to Length (a) do

res:=res+StrToInt (a[i]) ;

Writeln ('Result of second part: ', res) ;

readln;

end.