Читать файл до половины

[Kelluin]

Нужно было составить программу по следующему заданию,

Ввести файл F . Все элементы, которые не кратны 4 и стоят в первой половине файла уменьшить на 10. Файл вывести до и после преобразования.

но столкнулся с тем что не знаю как считать файл до половины только вот мой код. Помогите пожалуйста.

program Z15;
uses crt;
var b,i:integer;
f:file of integer;
begin
assign(f,'f.dat');
writeLn('Введите первую компоненту файла F или признак конца ввода: "20" ');
//ввод файла;
rewrite(f);
readLn(b);
i:=1; //номер компоненты файла
while b<>20 do
begin
write(f,b);
i:=i+1;
writeLn('Введите ',i,'-ю компоненту файла f');
readLn(b);
end;
//вывод файла до изменения
reset(f);
writeLn('файл f до изменения: ');
while not EOF(f) do
begin
read(f,b);
write(b:5);
end;
writeLn;
// уменьшение на 10 элементов стоящих в первой половине файла и кратных 4
reset(f);
while not EOF(f) do
begin
read(f,b);
if b mod 4 = 0
then
begin
seek(f,filepos(f)-1);
b:=b-10;
write(f,b);
end;
end;
//вывод файла после изменения
reset(f);
writeLn('файл f после изменения: ');
while not EOF(f) do
begin
read(f,b);
write(b:5);
end;
writeLn;
close(f);
end.

[Serge_Bliznykov]

так устроит?

program Z15;
uses crt;
var b, i: integer;
  f: file of integer;
begin
  assign(f, 'f.dat');
  writeLn('Введите первую компоненту файла F или признак конца ввода: "20" ');
{//ввод файла; }
  rewrite(f);
  readLn(b);
  i := 1; {//номер компоненты файла }
  while b <> 20 do
  begin
    write(f, b);
    i := i + 1;
    writeLn('Введите ', i, '-ю компоненту файла f');
    readLn(b);
  end;
  Close(f);  {нужно ОБЯЗАТЕЛЬНО закрыть файл, чтобы сохранить внесённые изменения}

{//вывод файла до изменения }
  reset(f);
  writeLn('файл f до изменения: ');
  while not EOF(f) do
  begin
    read(f, b);
    write(b: 5);
  end;
  writeLn;

{  // уменьшение на 10 элементов стоящих в первой половине файла и НЕ кратных 4 }
  reset(f);
  for i:=1 to (FileSize(f) div 2) do  {FileSize(f) возвращает число записей в файле}
  begin
    read(f, b);
    if (b mod 4) <> 0 then
    begin
      seek(f, i - 1);
      b := b - 10;
      write(f, b);
    end;
  end;
  Close(f); {нужно ОБЯЗАТЕЛЬНО закрыть файл, чтобы сохранить внесённые изменения}

  {//вывод файла после изменения }
  reset(f);
  writeLn('файл f после изменения: ');
  while not EOF(f) do
  begin
    read(f, b);
    write(b: 5);
  end;
  writeLn;
  close(f);
end.

если есть вопросы - задавайте, не стесняйтесь!

[Kelluin]

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

так устроит?

Да спасибо большое, два дня пытался сделать и так и не увидел что надо НЕ кратные 4 числа уменьшать.

[Serge_Bliznykov]

Пожалуйста.

так и не увидел что надо НЕ кратные 4 числа уменьшать

дык. дьявол как раз в деталях!