текстовые файлы,Работа с файлами

uses crt;
var f:text;
    nf,s:string;
    k:integer;
begin
clrscr;
write('Имя файла для чтения: ');
readln(nf);
nf:=nf+'.txt';
assign(f,nf);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Файл ',nf,' не найден!');
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
k:=0;
while not eof(f) do
 begin
  readln(f,s);
  if length(s)<=15 then k:=k+1;
 end;
close(f);
writeln('Количество строк не более 15 символов=',k);
readln
end.

uses crt;
var f,g:file of char;
    a,c:char;
    n,i,k:integer;
begin
clrscr;
clrscr;
randomize;
assign(f,'filef');
rewrite(f);
assign(g,'fileg');
rewrite(g);
writeln('Сколько букв ввести в файл? n=');
readln(n);
for i:=1 to n do
 begin
  a:=chr(random(26)+97);
  write(f,a);
 end;
repeat
write('Введите строчную латинскую букву для поиска c=');
readln(c);
until c in ['a'..'z'];;
writeln('Содержание исходного файла:');
reset(f);
k:=0;
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
  if a>c then write(g,a);
 end;
writeln;
writeln;
close(f);
reset(g);
if filesize(g)=0 then write('Букв по алфавиту позже ',c,' нет!')
else
 begin
  writeln('Буквы по алфавиту позже ',c);
  while not eof(g) do
   begin
    read(g,a);
    write(a,' ');
   end;
   writeln;
   writeln;
   write('Всего букв по алфавиту позже ',c,'=',filesize(g));
 end;
close(g);
readln
end.