Первоначально сообщение на русском языке было записано в 16-битном коде Unicode. При его перекодировке в 8-битную кодировку КОИ-8 информационное сообщение уменьшилось на 640 бит. Сколько символов сообщении?

Не совсем понятно условие, но вот возможное решение в C++
#include <iostream>
#include <iomanip>
#include <ctime>
int main()
{
    using namespace std;

    cout << "Enter N: ";
    int N;
    cin >> N;

    int * A = new int[N];
    srand(time(0));
    for (int i = 0; i < N; ++i)
        A[i] = rand() % N + 1;

    for (int i = 0; i < N; ++i)
        cout << setw(4) << A[i];

    cout << "\nEnter K: ";
    int K;
    cin >> K;

    int SIZE = 0;
    for (int i = 0; i < N; ++i)
        if (A[i] <= K)
            ++SIZE;

    if (SIZE > 0)
    {
        int * A1 = new int[SIZE];
        int i1 = 0;
        for (int i = 0; i < N; ++i)
            if (A[i] <= K)
            {
                A1[i1] = A[i];
                ++i1;
            }
        for (int i1 = 0; i1 < SIZE; ++i1)
            cout << setw(4) << A1[i1];
        delete[] A1;
    }
    else
        cout << "No elements" << endl;
    delete[] A;
    cout << endl;
    return 0;
}

Здесь нужно использовать вс типизированный файл и, соответственно, вторую файловую переменную (fr2).
Сделать это можно так:
while not eof(fr) and (kol=0) do
begin
read(fr, Marshrut);
if (Marshrut.NK.N <> '11')
   then write(fr2,Marshrut)
   else begin inc(kol); y:=Marshrut; end;
end;
if not eof(fr) then
  begin
  read(fr, Marshrut);
  write(fr2,Marshrut);
  end;
if (kol=1) then  write(fr2,y);
Дальше нужно просто переписать оставшиеся записи из первого файла во второй. Затем оба файла закрыть, первый файл удалить, а второй переименовать (т.е. назвать его так, как назывался первый файл).

Попробуйте ещё вот такой вариант:
(здесь k1 и k2 - целые, а y - типа )
if (Marshrut.NK.N = '11') then
begin
writeln('... ');
inc(kol);
y:=Marshrut;
k1:=FilePos(fr)-1;
k2:=FilePos(fr);
if not eof(fr) then
 begin
 read(fr, Marshrut);
 seek (fr, k1);
 write(fr, Marshrut);
 seek (fr, k2);
 write (fr, y);
 end;

end;