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

[pippo]

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

[pippo]

Ладно с первой задачей разобрался полность, сегодня уже защитился.Всем спасибо кто помогал!
По второй задаче накалякал что то, тока ничё не работает

program LR7;
uses crt;
TYPE L1=record
L.F,L.Y,L.D,L.M:string;
end;
var L:L1;
F1:file of L1;
F:string
c:char
begin
clrscr;
L.F=";
Assign(F1,'file.dan');
Rewrite(F1);
While e<>'q' do
begin
write ('Name');
readln(L.F);
write('pol');
readln(L.Y);
write('gorod');
readl(L.D);
write('vozrast');
readln(L.M);
write(F1);
c:=readkey;
end;
close(F1);
write('vvedite iskomuu vozrast');
readln(F);
reset(F1);
while not eof(F1) do
begin
read(F1,L);
if L.Y=F then
begin
writeln('show all given');
write('vozrast');
Writeln(L.F);
write('name')'
writeln(L.Y);
write('gorod');
writeln(L.D);
write('pol');
writeln(L.M);
end;
end;
close(F1);
write('konec:');
readkey;
end.