через 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;