Помогите написать прогу

[TwEEkcs]

№1 Каждая строка файла это фамилия и дата рождения сотрудника.(например Иванов 12.04.95). Вывести фамилии тех, у кого день рождение летом.

№2 Имеется текстовый файл . Все четные строки этого файла записать во второй файл , а нечетные строки в третий файл.

Ваще не втыкаю как это сделать !))) Помогите))

[TwEEkcs]

Помогите плизз срочна надо очень

[uberchel]

Пользуйтесь поиском по форуму найдёте много подобных тем !

[TwEEkcs]

я короче сам не могу такую чтуку даже и хоть подобные будут я ваще никак немогу помогите плизз очень ну очень надо )))

[sheka]

Сообщение от TwEEkcs

я короче сам не могу такую чтуку даже и хоть подобные будут я ваще никак немогу помогите плизз очень ну очень надо )))

тогда Фриланс - это для вас!

[ОДИНОЧЕСТВО В СЕТИ]

1

Program dr; 
	Var f1:text; 
	    fam,d:string; 
	Begin 
	
	    Assign(f1, 'f.in'); 
        Reset(f1);
	  While not eof(f1) do 
	    Begin 
	        Read(f1,fam,d)
			if (d[5]='6') or (d[5]='7') or (d[5]='8') 
			then
			writeln (fam,d);
			end;
      close(f1);
	 readln;

	End.

2

Program st; 
	Var f1,f2,f3:text; 
	    f:string; 
	Begin 
	
	    Assign(f1, 'f.in'); 
		Assign(f2,'second.txt');
		assign(f3, 'third.txt');
		
        Reset(f1);
		rewrite(f2);
		rewrite(f3);
		k:=1;
	  While not eof(f1) do 
	    Begin 
	        Read(f);
			if k mod 2 <> 0 then writeln(f2,f);
			else writeln(f3,f);
			inc(k);
			end;
      close(f1);
	  close(f2);
	  close(f3);

	 readln;

	End.

[sheka]

Сообщение от ОДИНОЧЕСТВО В СЕТИ

Program dr; 
	Var 
	    fam:string[20];

надо ставить длину строки, иначе всю строку файла считает в переменную-фамилию.

[TwEEkcs]

Просто блогадарен спасибоооо!!! Огромное!!!!!!!!

[ОДИНОЧЕСТВО В СЕТИ]

поправьте если есть недочеты!!!