Создать файл из 250 целых чисел, лежащих на отрезке [20, 5000], используя генератор случайных чисел. -вывести его на экран. -сколько в нем чисел, кратных сумме квадратов своих цифр. -найти все числа, отличающиеся от наибольшего не более, чем на 50. (не знаю как доделать) var f: file of byte; i, n, x, t: byte; s: real; begin assign (f, 'numbers.dat'); rewrite (f); write ('n='); readln (n); randomize; for i: =1 to n do begin x: =random (4800)+20; write(f, x); write(x, ' '); end; seek (f, 0); s: =0; while not eof (f) do begin read (f, x); t: =x; repeat t: =

Var
    f: file of integer;
    i, n, x, t, k, max: integer;
    s: integer;

begin
    randomize;
    write('n=');
    readln(n);
    
    assign(f, 'numbers.dat');
    rewrite(f);
    
    max := -1;
    for i := 1 to n do
    begin
        x := random(4800) + 20;
        write(f, x);
        write(x, ' ');
        if x > max then max := x;
    end;
    writeln;
    
    seek(f, 0);
    k := 0;
    while not eof(f) do
    begin
        read(f, x);
        t := x;
        s := 0;
        while t > 0 do
        begin
            s := s + sqr(t mod 10);
            t := t div 10;
        end;
        if x mod s = 0 then k := k + 1;
        if x > max - 50 then write(x, ' ');
    end;
    writeln;
    
    writeln(k);
end.

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  Println('*1*');
  var a:=ArrRandom(10,-99,99); a.Println;
  var imin:=a.IndexMin;
  if imin=a.Length-1 then a:=a+Arr(100)
  else a:=a[:imin+1]+Arr(100)+a[imin+1:];
  a.Println;
  Println('*2*');
  a:=ArrRandom(10,-99,99); a.Println;
  var imax:=a.IndexMax;
  if imax=a.Length-1 then a:=a[:imax]
  else a:=a[:imax]+a[imax+1:];
  a.Println
end.

Тестовое решение:
*1*
-52 -66 -56 55 -94 -53 28 -94 61 61
-52 -66 -56 55 -94 100 -53 28 -94 61 61
*2*
62 -80 91 -85 -59 -58 20 23 -91 53
62 -80 -85 -59 -58 20 23 -91 53

Привет, код ниже, для справки по функциям советую посетить MSDN.
Если остаются вопросы так же есть хороший сайт как METANIT, там ты можешь найти простые примеры и простую документацию.
Если хочется проверить работаю кода, то есть прекрасный ресурс как Repl It.
Если есть вопросы, пиши в комментариях. За дополнительной информацией пиши в ЛС.

за отметку "Лучшее решение" и нажатую кнопочку и у меня в профиле.
Так же в моем профиле вы можете найти полезные ссылки на ресурсы описанные выше.

using System;

class MainClass {
  public static int (int[] array)
  {
    int result = 1;
   
    foreach (int element in array)
    {
      if (0 > element)
      {
        result *= element;
      }
    }
   
    return result;
  }

  static void Main()
  {
    Console.WriteLine("Please, enter length of array: ");
    int sizeOfArray = Convert.ToInt32(Console.ReadLine());
   
    int[] array = new int[sizeOfArray];
   
    for (int i = 0; i < sizeOfArray; ++i)
    {
      Console.WriteLine("Please, enter array entry: ");
      array[i] = Convert.ToInt32(Console.ReadLine());
    }
   
    int productOfNegativeNumbers = (array);
    Console.WriteLine("Product of negative numbers is: {0}", productOfNegativeNumbers);
  }
}