через 3 дня здавать практику а я пратически ничего не сделала. вот задача : Имеется файл с целыми чилами. Все четные числа записать в другой файл. Размер файла неизвестен.

var
 fin,fout:text;
 ch:integer;
.....................
.....................
while not eof(fin) do begin{пока не конец файла делаем....}
  read(fin,ch);
  if ch mod 2 =0 then{проверка четности}
  write(fout,ch,',');
end;

Думаю остальное сама напишеш.....Тебе осталось инифиализировать файлы и все.
(чтоб самой что нибудь да пришлось сделать....

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