Помогите решить задачи в паскале

1) тк не уточнила загружаем из файла, или вводим с клавиатуры, получай с этими двумя функциями. В каталоге с программой должен быть файлик. txt var a,filename: string[255]; chk,i,res: integer; f1: Text; beginres: =0; chk: =0; Writeln ('1. Input line'); Writeln ('2. Load from file'); Readln (chk); if chk=1 thenbegin 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 thenbegin 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; beginwriteln ('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.