Файл из чисел

{Создать файл из 150 целых чисел, лежащих на отрезке [20,5000],
используя генератор случайных чисел.
-Вывести его на экран.
-Сколько в нем чисел, кратных сумме своих цифр.
-Найти все числа, отличающиеся от наименьшего не более, чем на 20.}
var
  f:file of integer;
  kmin,k,a,min,i:integer;
 
function sumofdigits(x:integer):integer;
var
  s:integer;
begin
  s:=0;
  while ( x<>0 ) do
  begin
    s := s + (x mod 10);
    x := x div 10;
  end;
  sumofdigits:=s;
end;
 
begin
  randomize;
  assign(f,'numbers.dat');
  rewrite(f);
  for i:=1 to 150 do
    begin
      a:=random(5000-20)+20;
      write(f,a);
    end;
  close(f);
  k:=0; min:=maxint;
  reset(f);
  while not eof(f) do
    begin
      read(f,a);
      write(a:5);
      if a mod sumofdigits(a)=0 then
        inc(k);
      if a<min then
        min:=a;
    end;
  close(f);
  reset(f); kmin:=0;
  writeln;
  writeln('Числа, отличающиеся от наименьшего не более, чем на 20: ');
  while not eof(f) do
    begin
      read(f,a);
      if abs(a-min)<=20 then
        begin
          inc(kmin);
          write(a:5);
        end;
    end;
  close(f);
 
  writeln;
  writeln('Чисел, кратных сумме своих цифр: ',k);
  writeln('Минимум: ',min);
  writeln('Количество чисел, отличающиеся от наименьшего не более, чем на 20: ',kmin);
  readln;
end.

a:=random(5000-20)+20;

a:=random(5000+20+1)-20;