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

[pippo]

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

[-Alex-]

Подправил прямо на форуме, поэтому не тестил.

program LR7;
uses crt;
TYPE L1=record
F,Y,D,M:string;
end;
var L:L1;
F1:file of L1;
F:string
key:integer;
c:char
begin
clrscr;
Assign(F1,'file.dat');
Reset(F1);
writeln('Будете добавлять данные в файл? (Y/N)');
readln(key);
If (key='Y') or (key='y') then
Begin
seek(F1,filesize(F1));
repeat
begin
write ('Name'); readln(L.F);
write('pol'); readln(L.Y);
write('gorod'); readl(L.D);
write('vozrast'); readln(L.M);
write(F1,L);
end;
c:=readkey;
writeln('Надо ещё добавлять данные? (Y/N)');
until (c='n') or (c='N');
close(F1);
end;
clrscr;
write('Мужчины старше 60: ');
reset(F1);
while not eof(F1) do
begin
if (L.Y=F) and (L.M>60) then
begin
read(F1,L);
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.