func(ImeDatoteke)
begin
	local B := LoadDataFile(ImeDatoteke, nil);
	local C := 0;
	local L := 2000;
	for i := 0 to Length(B) - 1 do begin
		if C = 0 then
			Write(L & " DATA ");
		Write(ExtractByte(B, i) & ", ");
		C := C + 1;
		if C = 8 then begin
			Write($\n);
			C := 0;
			L := L + 10;
		end;
	end;
	Write($\n & (L + 10) & " DATA -1\n");
end;