Из типизированного файла в текстовый

[Katerina Voy]

Из типизированного файла в текстовый

Помогите, подскажите..

задача такова:сформулировать файл, содержащий информацию о дате рождения N ваших друзей (информация про одного друга вводится в одну буквенную переменную в следующем порядке: фамилия-ДД.ММ.ГГГГ, например - Сидоров - 7.03.1980). Используя сформированный файл, напечатать фамилии друзей, родившихся осенью.

если использовать типизированные файлы, то вот:

uses crt;
type drug=record
     fam:string;
     d,m,r:byte;
     end;
var
i,n:byte;
f:file of drug; z:drug;
begin
 assign(f,'in.txt');
  rewrite(f);
   writeln('Kolichestvo druzey:');
	 readln(n);
	   for i:=1 to n do
	    begin
          writeln('Familiya:');
	        readln(z.fam);
	        writeln('den:');
	        read(z.d);
	        writeln('mesiats:');
	        read(z.m);
	        writeln('god:');
	        read(z.r);
	        write(f,z);
	     end;
        close(f);
        reset(f);
        while not eof(f) do
        begin
        read(f,z);
        if (z.m=09)or(z.m=10)or(z.m=11) then writeln(z.fam,'-',z.d,'.',z.m,'.',z.r);
        end;
        readln;
        end.

Как же быть с текстовым файлом??? :tehnari_ru_837:

 

[AlexZir]

Считывайте содержимое z.fam из типизированного файла и сразу же передавайте его в обычный текстовый файл, при этом в файл в соответствии его структурой будет записана только текстовая строка.