Опишите каждую строчку кода?

[Casillas1]

uses crt;
var f,g:file of integer;
    a,k,n,i:integer;
begin
 clrscr;
  assign(f,'f.txt');
   assign(g,'g.txt');
  rewrite(f);
  write('Кол-ство компонентов файла n=');
   readln(n);
  writeln('Файл Ф :');
   for i:=1 to n do
    begin
     a:=-10+random(22);
     write(f,a);
     write(a:4);
    end;
  writeln;
   write('К=');
    readln(k);
   reset(f);
    rewrite(g);
    while not eof(f) do
     begin
      read(f,a);
       if not(a mod k=0) then
         write(g,a);
     end;
  reset(g);
   writeln('Файл Же :');
    while not eof(g) do
     begin
      read(g,a);
      write(a:4);
     end;
 readkey;
end.

[ZX Spectrum-128]

использовать crt;
var f,g: файл из целый;
a,k,n,i:целый;
начать
clrscr;
назначить (f,'f.txt');
назначить (g,'g.txt');
переписать (f);
писать ('Кол-ство компонентов файла n=');
читатьln (n);
писатьln ('Ф Файл :');
для i:=1 к n делать
начать
a:=-10+ случайный (22);
писать (f,a);
писать (a:4);
конец;
писатьln;
писать ('К=');
читатьln (k);
сброс (f);
переписать (g);
пока нет eof(f) делать
начать
читать (f,a);
если нет(mod k=0), то
писать(g,a);
конец;
сброс(g);
писатьln('Файл Же :');
пока нет eof(g) делать
начать
чтение(g,a);
писать(a:4);
конец;
читатьключ;
конец.

[Utkin]

clrscr; - очистить экран

[ZX Spectrum-128]

Да, спасибо.
Еще var(iables) - переменые
Eof (end of file) конец файла
И readkey - читать клавишу, а не ключ

[Utkin]

писатьln

Вы словарем что ли переводили? Это писать строку/значение целиком (то есть с завершающими символами на конце).

[ZX Spectrum-128]

В яндекс-переводчик загнал
И читатьln - это чтение данных с переводом курсора на следующую строчку.