Придумай имя файла,в котором может быть записано видео с отдыха.выдели собственно имя и разрешение. , хз как ​

Const   t = 10; // количество чисел в массиве var   a: array[1..t] of integer;   i, min, k, tmp, klv, z: integer;   b: boolean; begin     for i : = 1 to t do       a[i] : = random(10) + 1;     //рандом чисел от 1 до 10     writeln('массив: ');   for i : = 1 to t do       write(' ', a[i]: 2);   writeln;     for i : = 1 to t - 1 do       for k : = i + 1 to t do           if a[i] > a[k] then           begin               tmp : = a[k];               a[k] : = a[i];               a[i] : = tmp;           end;     writeln('после сортировки: ');   for i : = 1 to t do       write(' ', a[i]: 2);   writeln;     klv : = 0;   writeln('введите число x: ');   readln(z);   for i : = 1 to t do       if a[i] = z then       begin           b : = true;           inc(klv);       end;   if b then   begin       writeln('число ', z, ' встречается ', klv, ' раз(а).');   end;     if b = false then writeln('число ', z, ' не встречается.'); end.