ПЛЗ УЖЕ 4 РАЗ СПРАШИВАЮ НИКТО НЕ ОТВЕЧАЕТ ​

Const
   N = 13;
Var
   A:array[1..N] of integer;
   i,k:integer;
Begin
k:=0;
Write('Введите массив A(',N,'): ');
For i:= 1 to N do
    Begin
    Read(A[i]);
    if A[i] = 1 then k:=k+1
    End;
WriteLn('Количество единиц: ',k);
End.

Const
   N = 13;
Var
   A:array[1..N] of integer;
   i:integer;
Begin
Randomize;
Write('Исходный массив:');
For i:= 1 to N do
    Begin
    A[i]:=random(13)-6;
    Write(' ',A[i]);
    if A[i] < 0 then A[i]:=A[i]+A[1]
    End;
WriteLn;
Write('Новый массив:');
For i:= 1 to N do
    Write(' ',A[i])
End.

// PascalABC.NET 3.2, сборка 1425 от 22.04.2017
// Внимание! Если программа не работает, обновите версию!

type
  FileNameClass=class
 
  public
 
  fullpath:string;
  name:string;
  extension:string;
  path:string;
 
  constructor (fp:string);
  begin
    fullpath:=fp;
    name:=ExtractFileName(fp);
    var p:=LastPos('.',name);
    if p>0 then name:=name[:p];
    extension:=ExtractFileExt(fp);
    path:=ExtractFilePath(fp)
  end;
 
  procedure PutType;
  begin
    case extension[2:] of
    'txt':Writeln('файл текстовый');
    'bmp','jpg','tiff','gif','psd','png','ico':Writeln('Файл графический');
    'mp4','mov','mpg','avi':Writeln('Файл видео')
    else Writeln('Файл неизвестного типа')
    end
  end;
 
  procedure PutName;
  begin
    Writeln(name)
  end;
    
end;

begin
  var oFile:=new FileNameClass(ReadlnString('Полный путь к файлу:'));
  oFile.PutName;
  oFile.PutType;
  oFile:=nil // если надо явно удалить объект
end.

Пример
Полный путь к файлу: PABCWork.NET\demo.bmp
demo
Файл графический

"Десятикратный размер", который Вы не соизволили объяснить, сделаете сами, когда поймете, что это.