Помогите решить задачи в паскале. 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.