Помогите решить 2 задачи., Темы:Текстовые файлы,Последовательные файлы. Опции

[pippo]

Очень прошу помоч с этими задачами,я в паскале не очень силён.Всю голову уже изломал! :o :wall: Заранее спасибо!
Задача№1
Создать текстовый фаил из 9 строк,в каждой строке до 69 символов.Определить сколько в тексте предложений.
Задача№2
Создать последовательный файл с полями а)фамилия б)улица в)пол г)возраст д)город.Запрограмировать диалог просмотра создания файла в поисках мужчин старше 60 лет!

[pippo]

Подскажите почему не правильно считается кол-во предложений?

program LR8; 
uses crt; 
type ahh=array[1..9] of string[69]; 
var f:text; a:ahh; i,j,sch:byte; b:string; 
begin 
assign(f,'file.txt'); 
rewrite(f); 
for i:=1 to 9 do 
 begin 
  readln(a[i]); 

  writeln(f,a[i]); 
 end; 
close(f); 
sch:=0; 
for i:=1 to 9 do 
 for j:=1 to 69 do 
  begin 
   b:=''; 
   b:=a[i]; 
   if b[j]='.' then sch:=sch+1; 
  end; 
writeln('predl:= ',sch); 
readln; 
clrscr; 
end.