Задача в Паскале по типизированным файлам

[TEO]

Задача: дан текстовый файл {На данный момент это просто файл формата .PAS, в котором находятся несколько строчек беспорядочно введенных символов с клавиатуры}. Выписать в новый файл те строчки данного файла, которые начинаются и заканчиваются одним и тем же символом.
Решение задачи особо актуально в течение 7 часов с момента написания поста) Далее переходит в раздел актуально в течение 3 дней.
Очень прошу полностью оформить задачу, начиная от var и заканчивая end.
Спасибо тому, кто возмётся решить в краткие сроки. =)

[TEO]

На данный момент выбран способ такой:
assign(f,'D\work\xxx.PAS');
read(f,s);
Т.е. вытаскиваем сразу строку, работая уже со строками. Я всё это знаю, но не понимаю как скомпоновать в одно рабочее целое) Так же не  понял пока как сравнивать первый и последний символы. Если последний символ это s[lenght(s)], то первый s[1]? В какой порядке всё в цикл засунуть? 

[InfStudent]

насчет первый последний правильно мыслите, но зачем типизированный использовать, когда вобще то ваша задача спокойно решается текстовыми файлами? Набросок:
var
f,res:textfile;
s:string
begin
...
AssignFile(res,'ResFile.PAS');
AssignFile(f,'MyFile.PAS');
Append(f);
Rewrite(res);
Close(res);
Append(res);
while not eof(f) do
begin
readln(f,s);
if s[1]=s[high(s)] then
begin
writeln(res,s);
end
end;